vb连接ACCESS出错 请教

[jaryscor]

VB用ADO连接ACCESS数据库时出错，只有DATAGRID和ADODC两个控件，引用
MICROSOFT ACTIVE DATA OBJECTS 2.8 LIBRARY
MICROSOFT ACTIVE DATA OBJECTS RECORDSET 2.8 LIBRARY
代码如下：
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
cn.ConnectionString = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source='e:\yb\temp\newstudent.mdb'"
cn.Open
sql = "select * from newstudent.first"
rs.Open sql, cn, 1, 3
rs.Close
End Sub

运行提示
cn.ConnectionString = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source='e:\yb\temp\newstudent.mdb'"
出错，具体为：
实时错误‘91’：
对象变量或WITH块变量未设置
请各位高手看看这是什么问题，谢谢！！

[OracleRoob]

--try

Dim cn As New ADODB.Connection '这里定义New
Dim rs As New ADODB.Recordset '这里定义New
Dim sql As String
cn.ConnectionString = "provider = microsoft.jet.oledb.4.0;persist security info=false;data source=d:\newstudent.mdb"
cn.Open
sql = "select * from newstudent.first"
rs.Open sql, cn, 1, 3
rs.Close

[wwwwb]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Connection
or
set cn=New ADODB.Connection
set rs=New ADODB.Connection

[jaryscor]

追问:
如何才能够使DATAGIRD控件取得数据,与ADODC控件相连(用代码实现,在什么SUB内填写)谢谢!!!

[OracleRoob]

到开发版去问吧，这里只讨论Access。

[changechange]

新手来看：如何解决“对象变量或 With 块变量未设置”错误？《VBA》
http://access911.net/index.asp?u1=a&u2=72FAB01E11DCE7F3







--911--