vb6 datagrid 于 recordset 连接的问题

Dim ConnX As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
ConnX.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
";Data Source=" & txtDBName.Text
On Error GoTo ConnErr
ConnX.Open
MsgBox "连接数据库成功！", vbInformation, "连接"
rs.Open "SELECT * FROM MyTable ", ConnX
Set gridData.DataSource = rs
gridData.ClearFields
gridData.ReBind

Exit Sub
ConnErr:
MsgBox "连接数据库错误！", vbInformation, "连接"
End Sub

Set gridData.DataSource = rs
这里总是错误，不知道怎么解决
如果建议改用adodc的话，谢谢你，这个我已经知道了~
这个我自己已经解决了：
只要在 ConnX.Open前加上这一句就一切ok了

ConnX.CursorLocation = adUseClient

第一个进来的分就给你了~

VB6.0+datagrid 格式化显示内容问题 VB6.0的DataGrid内容怎么换行 vb6 的控件datagrid如何控制输入的格式啊? vb6.0 datagrid 的一个sql语句问题 请教VB6.0 中DataGrid 操作Access数据库的问题 vb6 sp6 datagrid 怎么进行多表显示？ vb6 中如何返回 Datagrid被选中的行数 datagrid 谁有关于vb6连接数据库书籍 网上有关于VB6的书籍吗？