Public cn  As [un]ADODB.Connection[/un]
Public Sub dbconn()
 Dim str1 As String
 str1 = " provider = microsoft.jet.oledb.4.0;data source = " & App.Path & " \kehse\rlzygl.mdb"
 Set cn = New ADODB.Connection
 cn.open str1
End Sub
总是显示用户自定义类型未定义？