帮助看看这个程序

Question

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Command4_Click()
Dim strsql As String
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source =C:\Documents and Settings\Administrator\桌面\宿舍管理系统\查询水电费.mdb"
strsql = "select 月份,水费,电费,管理费,维修费 from 查询水电费 where 月份 like '" & Text1 & "%' order by 月份"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, conn, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = rs
End Sub
这个是查询的Click 请问需要什么才能使这个程序不会错误
.mdb表我有了

Answer 1

Set DataGrid1.DataSource = rs
rs.requery

Answer 2

rs.Open strsql, conn, adOpenDynamic, adLockReadOnly
这里

Answer 3

我2楼问的两个问题……
从你上面的程序看不出什么问题，可能你的conn没连好.
debug.print Cn.State

Answer 4

楼主没有说明是什么原因，建议楼主加个错误打印：
开始处加上：on Error goto Err:最后加上:
    exit sub
Err:
    msgbox err.Description