我不知道是否还有别的数据库引用和控件有 rdoConnection 类型,但是,如果你没有引用 Microsoft Remote Data Object 组件,则可能会出现上面的问题,或者同时引用了其它数据库组件时也可能这样,你可以看看引用的情况,然后加上前缀试试,像这样:
Private mcon as RDO.rdoConnection
Private mcon as RDO.rdoConnection
调试欢乐多
Public dbcnn As New ADODB.Connection
Public abc As New ADODB.Command
Public ado_command As New ADODB.Command
Public Sub Connect()
Dim strCon As String
strCon = "这个里面写你的连接字符串就可以了" Set dbcnn = New ADODB.Connection With dbcnn
.ConnectionString = strCon
.ConnectionTimeout = 5
.Properties("PROMPT") = adPromptNever
.CursorLocation = adUseServer
.Open
End With
Exit Sub
End Sub