请问 连接Access数据库时总是出现对象变量或with块变量异常

请教 连接Access数据库时总是出现对象变量或with块变量错误?
用Adodc访问Access数据库定义了一个连接数据库的函数
Public   cnn   As   ADODB.Connection
Public   rst   As   ADODB.Recordset
Public   Sub   DBConnect()
Dim   CONSTER   As   String
CONSTER   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=F:\luntai\luntai.mdb;Persist   Security   Info=False "
cnn.ConnectionString   =   CONSTER
cnn.Open
If   cnn.State   <>   adStateOpen   Then
MsgBox   "数据库连接失败 ",   vbOKOnly   +   vbCritical,   "连接失败 "
End   If
End   Sub
帮忙看看是代码错误吗

------解决方案--------------------
发多张帖干什么，你没有实例化，引用ado2.5的版本

在申明中加个as new