Public cnn As New ADODB.Connection问题

Question

我只写了如下的简单程序：
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 SubPrivate 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的提示，这是为什么，比较初浅的问题，

Answer 1

工程==〉引用==>把 Microsoft ActiveX Data Objects 2.6 Library钩上