为什么我连不上ACCESS数据库?我编写的模块如下Public Function ConnectToServer() As Boolean
On Error GoTo connecterr
    '连接到ACCESS
    g_DBCon.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;" & _
                                "Data Source=D:\ACSDB\emp.mdb;" & _
                                "Mode=ReadWrite"
    g_DBCon.ConnectionTimeout = 30              '30秒等待时间
    g_DBCon.Open                                '打开连接
    ConnectToServer = True
    Exit Function
'错误处理
connecterr:
    ConnectToServer = False
    MsgBox "错误代码:" & Err.Number & vbCrLf & _
            "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function引用了  MS ADO 2.5 Library但是使用的时候出现“Unrecognized database format 'D:\ACSDB\emp.mdb' ”
这个文件是我用ACCESS建立的空数据库文件。

解决方案 »

  1.   

    试一下这样连:Public Function ConnectToServer() As Boolean
    public mDBpath As String
    On Error GoTo connecterr
        mDBpath="D:\ACSDB\emp.mdb" 
        '连接到ACCESS
        g_DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDBpath & ";Persist Security Info=False"    g_DBCon.ConnectionTimeout = 30              '30秒等待时间
        g_DBCon.Open                                '打开连接
        ConnectToServer = True
        Exit Function
    '错误处理
    connecterr:
        ConnectToServer = False
        MsgBox "错误代码:" & Err.Number & vbCrLf & _
                "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
    End Function
      

  2.   

    控制面板里面如何设置?能详细点说明吗?我的OS是win2k3。
      

  3.   

    数据库驱动不对,换成:provider=Microsoft.Jet.OLEDB.4.0
    provider=Microsoft.Jet.OLEDB.3.51 只支持office97,不支持office2000
      

  4.   

    楼上的说得对,在access里 把数据库转换成ACCESS97格式的就可以了.
      

  5.   

    我填写了 provider=Microsoft.Jet.OLEDB.4.0 但是却提示“未找到提供程序,该程序可能未正确安装”
      

  6.   

    那就是你没有这个数据驱动塞。
    你把你的数据库转成ACCESS97就可以了