我新建一个工程Form1,在窗口上添加一个datagrid1控件，后台在该工程文件夹中建立一个Acess数据库，里面有张Users的表，
Private Sub Form_Load()
Dim rs_rkd1 As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
Set rs_rkd1 = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\人事.mdb " + ";Persist Security Info=False" ‘该行没问题
cnn.Open
rs_rkd1.Open "select * from Users", cnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs_rkd1
DataGrid1.Refresh ’该行去不去掉都不行
End Sub

就是这个程序运行后，datagrid1中怎么也不显示数据表，为什么，急用！！
小弟一直在线等！！！！请高手指点一二！！感激不尽！

Private Sub Form_Load()
Dim rs_rkd1 As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
Set rs_rkd1 = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\人事.mdb " + ";Persist Security Info=False" ‘该行没问题
cnn.Open
rs_rkd1.CursorLocation = adUseClient
rs_rkd1.Open "select * from Users", cnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs_rkd1
DataGrid1.Refresh ’该行去不去掉都不行
End Sub