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

[yttlovezxx]

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)


Dim strsql As String, T As Date

On 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

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

[myhgyp]

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

[yttlovezxx]

我引用的是2.8

[myhgyp]

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

[feiyun0112]

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

[clear_zero]

dim rs as new ADODB.Recordset


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

[yttlovezxx]

已经照你们说的做了！但还是出现错误！55555555555

[daisy8675]

Dim strsql As String, T As Date

On 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吧

[yttlovezxx]

谢谢!