连接数据库出现Automation错误

Question

本机测试成功，用户机器返回automation错误，怀疑是驱动的问题？？？请问如何解决返回错误描述为：1、测试失败！错误编号为：-2147024770 Automation 错误
这是代码：
On Error GoTo err_load
    Dim strConn As String
    Dim oConn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim i As Integer
    i = 0
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source= " & App.Path & "\test;Persist Security Info=True;Jet OLEDB:Database Password=123"'strConn = "DBQ=" & App.Path & "\test;Driver={Microsoft Access Driver (*.mdb)};uid=user;pwd=123" '用odbc驱动也一样
    i = 1
    oConn.Open strConn
    i = 2
    oRs.Open "SELECT * FROM testtable", oConn, 3, 1
    i = 3
    Text1.Text = oRs("test")
    i = 4
    Set oRs = Nothing
    Set oConn = Nothing
    Exit Sub
err_load:
    Text1.Text = i & "、测试失败！错误编号为：" & Err.Number & " " & Err.Description

Answer 1

这个是不是datasource没有写对啊
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source= " & App.Path & "\test;Persist Security Info=True;Jet OLEDB:Database Password=123" 
修改为：
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\test.mdb;Persist Security Info=True;Jet OLEDB:Database Password=123" 你看看
建议用adodc控件生成连接语句，然后直接copy过来就ok

Answer 2

这样试试：
strconn=" Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" app.path & "\test.mdb;Jet OLEDB:Database Password=123"
再在不能运行的机器上安装mdac2.8mdactyp.exe

Answer 3

参见www.skyrising.com 中一篇文章有解决方法