Public cnn As New ADODB.Connection问题
我只写了如下的简单程序：
Public cnn As New ADODB.Connection

'这建立一个连接。
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim sql As String
sql = "select * from user "
rst.CursorLocation = adUseClient
rst.Open sql, cnn, adOpenStatic, adLockReadOnly
Me.Text1.Text = rst.Fields( "user_name ").Value
Me.Text2.Text = rst.Fields( "user_age ").Value
Set Me.DataGrid1.DataSource = rst
End Sub

Private Sub Form_Load()
Dim Connectionstring As String
Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\test.mdb;Persist Security Info=False "
cnn.Open Connectionstring
End Sub

但是模拟运行的时候出现了
编译错误
用户定义类型为定义
的错误提示
查看以后发现Public cnn As New ADODB.Connection的问题，而且发现输入Public cnn As New 后的时候体统里面也没有ADODB.Connection的提示，这是为什么，比较初浅的问题，

[解决办法]
工程==〉引用==> 把 Microsoft ActiveX Data Objects 2.6 Library钩上
[解决办法]
楼上正解，顺便说一句，2.3-2.6都是可以的