请大家看一下我的代码，哪儿出错了？
On Error GoTo err
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\mydb.mdb;Persist Security Info=False"
cn.Open str
rs.Open "select pwd from table1 where user=admin"
Set DataGrid1.DataSource = rs '把记录集的记录显示到DataGrid1
Exit Sub
err:
MsgBox err.Description

帮帮忙。

提示啥错误?..

刚刚写了一下..运行正常,,可能是你没有设置游标类型.要显示.一定要设置游标类型为客户端..
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source =D:\vb60实例\mdb\score01.mdb"
cn.Open str
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * From 成绩单", cn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
End Sub

On Error GoTo err
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\mydb.mdb;Persist Security Info=False"
cn.Open str
rs.Open "select pwd from table1 where user='admin'"
Set DataGrid1.DataSource = rs '把记录集的记录显示到DataGrid1
Exit Sub
err:
MsgBox err.Description