显示错误:要求对象!怎么办那?

Question

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Dim strsql As String, T As DateOn Error GoTo err
Dim cn As New ADODB.Connection, rs
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from log where 日期=#" & T & "#", cn, 3, 2
Set DataGrid1.DataSource = rs
Exit Sub
err:
    MsgBox err.Description
End Sub显示错误:要求对象!怎么办那?

Answer 1

有没有引用：Microsoft ActiveX Data Objects 2.X Library
如：
'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"

Answer 2

还有：Dim cn As New ADODB.Connection, rs 改成：
Dim cn As New ADODB.Connection, rs as new ADODB.Recordset

Answer 3

set rs=new adodb.recordset
rs.CursorLocation = adUseClient '设置客户端游标

Answer 4

dim  rs as new ADODB.Recordset
或者
dim rs as adodb.recordset
set rs=new adodb.recordset

Answer 5

Dim strsql As String, T As DateOn Error GoTo err
Dim cn As New ADODB.Connection, rs
=================================
引用Microsoft ActiveX Data Objects 2.5 Library(2.5是最适合的,版本高不代表好)这句话改成dim Cn as new adodb.Connectin
          dim rs as new adodb.recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select * from log where 日期=#" & T & "#", cn, 3, 2
Set DataGrid1.DataSource = rs   '--->检查你是否有DataGrid1这个控件
Exit Sub
err:
    MsgBox err.Description
End Sub如果上面改了都无效,就自己F8调试,看出错在那段程序也许并不是这段程序出的问题如果再搞不定,你自己就去找MS吧