我不知道是否还有别的数据库引用和控件有 rdoConnection 类型,但是,如果你没有引用 Microsoft Remote Data Object 组件,则可能会出现上面的问题,或者同时引用了其它数据库组件时也可能这样,你可以看看引用的情况,然后加上前缀试试,像这样:
Private mcon as RDO.rdoConnection

解决方案 »

  1.   

    Option Explicit
    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
      

  2.   

    把你的RDO改成ADO就得分了,应该去看看有什么差别。