请帮我改一下

Question

Private Sub Form_Load()
On Error Resume Next
Dim conn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim sql As String
connstr = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\text_old.mdb;"
conn.Open connstr
If Err.Number <> 0 Then
MsgBox ("数据库未能成功连接！" & Err.Description)
End If
sql = "select * from admin"
rs.Open sql, conn, adOpenStatic, adLockReadOnly
Datalist.DataSource = rs   /出错
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothin
End Sub我想用DATAGRID控件显示查询结果
如果有时间可以说说怎么在显示出来后加入编辑功能？我是一只菜鸟  菜菜菜菜菜菜     菜菜菜菜菜菜

Answer 1

错了！是这样的
Private Sub Form_Load()
On Error Resume Next
Dim conn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim sql As String
connstr = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\text_old.mdb;"
conn.Open connstr
If Err.Number <> 0 Then
MsgBox ("数据库未能成功连接！" & Err.Description)
End If
sql = "select * from admin"
rs.Open sql, conn, adOpenStatic, adLockReadOnly
Set Datalist.DataSource = rs
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothin
End Sub结果是么也不显示

Answer 2

两个控件        ADODC  NAME:ADODC1
        DATAGRID     NAME:DATALIST
没别的了

Answer 3

原来程序错了去掉 ON ERROR RESUME NEXT 后
Private Sub Form_Load()
Dim conn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim sql As String
connstr = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\text_old.mdb;"
conn.Open connstr
If Err.Number <> 0 Then
MsgBox ("数据库未能成功连接！" & Err.Description)
End If
sql = "select * from admin"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Set Datalist.DataSource = rs//提示错误
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub