我新建一个工程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中怎么也不显示数据表，为什么，急用！！
小弟一直在线等！！！！请高手指点一二！！感激不尽！

我不想用Adodc控件实现！

进来的高手们给顶一下！感激不尽！！！！

版主们，救命呀！

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" ‘该行没问题
' 该行没问题,不过.感觉那些加号很多余
'"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

好像这个可以你，试试吧，我调试通过了的


Adodc1.Recordset.AddNew

Adodc1.Recordset!tushubianhao = Text1.Text
Adodc1.Recordset!tushumingcheng = Text2.Text

Adodc1.Recordset.Update