请教 连接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
