一个很菜很急的问题，在线等街~~~~~~~~！！一个很菜很急的问题，在线等街~~~~~~~~！！

Question

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rss As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rss = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=guadb.mdb;Persist Security Info=False"
rss.CursorLocation = adUseClient
rss.Open "select * from xianpan", cnn, adOpenDynamic, adLockPessimistic
'rss.MoveFirst
Set DataGrid1.DataSource = rss
End Sub为什么运行时会提示“编译错误：用定义类型未定义”，请帮帮我看一下，是那里错了

Answer 1

在工程菜单选择 参照设定（倒数第三个），然后把Microsoft ActiveX Data Objects 2.x library 打上勾就好了

Answer 2

2楼意见纠正一下：
在工程菜单选引用，出现引用-工程1界面，然后选
Microsoft ActiveX Data Objects 2.0 library  打上勾
或
Microsoft ActiveX Data Objects 2.1 library  打上勾
确定即可。

Answer 3

Microsoft   ActiveX   Data   Objects   2.6  library     打上勾 
记得给分！！

Answer 4

还是有问题：
运行时显示：实时错误：-2147467259（80004005）
找不到可安装ISAM

Answer 5

改成这样试试
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=guadb.mdb"

Answer 6

改成这样试试 
"Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=guadb.mdb"也一样，不行！

Answer 7

给成cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\guadb.mdb;Persist Security Info=False" 就可以了。
记着，C:\guadb.mdb 你要给成你的数据库的路径。

Answer 8

在工程(project)->引用（References...），然后把Microsoft   ActiveX   Data   Objects   2.X   library   打上勾,代码也改下:
Private Sub Form_Load()
Dim cnn     As ADODB.Connection
Dim rss     As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rss = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=guadb.mdb;Persist Security Info=False"
rss.CursorLocation = adUseClient
rss.Open "select   *   from   xianpan", cnn, adOpenDynamic, adLockPessimistic
'rss.MoveFirst
Set DataGrid1.DataSource = rss
End Sub