编译错误,求改正...为什么运行程序时(下面是模块)显示用户定义类型未定义(cn as adodb.connection

Question

Public strConnectionString As String
Public cn As ADODB.Connection
Sub main()
    Dim DBName As String
    DBName = App.Path
    
    If Right$(DBName, 1) <> "\" Then DBName = DBName & "\"
    DBName = DBName + "lr.mdb;"
    strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        DBName & _
      "Persist Security Info=False"
    Set cn = New ADODB.Connection
    cn.ConnectionString = strConnectionString
End Sub

Answer 1

是不是还没有引用microsoft activex data object

Answer 2

工程-引用
microsoft activex data object 2.6(2.5，2.7，2.8均可)