Dim ConnMDB As New ADODB.Connection
    On Error Resume Next
    ConnMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Text5 & "'"
    ConnMDB.Open
    If Err <> 0 Then
        MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description
    End If

解决方案 »

  1.   

    dim cnn as new adodb.connection
    dim strConnection as string
    strConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\JacksonChen\桌面\db1.mdb;Persist Security Info=False"
    cnn.open strconnection
      

  2.   

    2004chenlong(沉浮):
    试过了还是不行, 好像不是方法的问题
      

  3.   

    是在open时出错,
    出错内容:
    (方法 '~' 作用于对象 '~' 失败)
      

  4.   

    ConnMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Text5 & "'"Data Source 后面的 ' 去掉。另外,保证 text5 中的内容是个有效的 mdb 文件,最好是绝对路径。
      

  5.   

    fxy_2002(阿勇):Data Source 后面的 ' 
    是我后加上去的,没有它时也是一样的错误
      

  6.   

    ConnMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\abc.mdb"将 c:\abc.mdb 换成你的 mdb 文件,看是否通过?如果通不过,大概是你的 ado 出了问题。重新安装一下 ado 组件
      

  7.   

    这算什么呀,代码也要完整点啊,TEXT5里是什么内容,难怪没人帮你。
      

  8.   

    fxy_2002(阿勇)
      我感觉也是ado的问题,怎么样重新安装ado组件,它的安装在那下载?
      

  9.   

    是。下载文件是 mdac_type.exe
      

  10.   

    刚才重安装了MDAC2.7的版本还不是行,我再下一个2.8的版本试试