这问题我在部署跨版本Windows的VBA程序时碰过好多次，确实挺棘手的——现代Windows（Win10及以后）默认不再预装Jet 4.0驱动，但老机器可能还能用；而ACE 12.0（也就是Access Database Engine）是替代方案，但得确保机器上装了它。下面给你几个靠谱的解决思路，从简单到进阶都有：

方案一：尝试连接 + 失败自动 fallback（最省心） #

我通常优先推荐这个方案，因为不需要去读注册表或者做复杂检测，直接用「尝试-捕获」逻辑：先试Jet 4.0连接，失败了就自动切换到ACE 12.0。这种方式对用户最友好，也不容易出权限问题。

示例代码：

Function GetMDBConnection(mdbPath As String) As ADODB.Connection
    Dim conn As New ADODB.Connection
    Dim jetConnStr As String
    Dim aceConnStr As String
    
    ' 定义两种连接字符串
    jetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";"
    aceConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mdbPath & ";Persist Security Info=False;"
    
    On Error Resume Next
    ' 先尝试Jet驱动
    conn.Open jetConnStr
    If Err.Number = 0 Then
        Set GetMDBConnection = conn
        Exit Function
    End If
    Err.Clear
    
    ' Jet失败，尝试ACE驱动
    conn.Open aceConnStr
    If Err.Number = 0 Then
        Set GetMDBConnection = conn
        Exit Function
    End If
    
    ' 两种都失败，抛出错误
    Err.Raise vbObjectError + 1001, , "无法找到合适的OLEDB驱动，请安装Access Database Engine 2010或更高版本"
    Set GetMDBConnection = Nothing
End Function

提示：如果你的MDB有密码，记得在连接字符串里加上;Jet OLEDB:Database Password=你的密码;（Jet和ACE都兼容这个参数）。

方案二：主动检测已安装的OLEDB驱动 #

如果你想提前知道机器上有什么驱动，可以通过读取Windows注册表来获取已安装的OLEDB驱动列表。不过要注意，32位和64位Office/系统的注册表路径不一样，得做判断。

示例代码（检测ACE和Jet驱动）：

Function IsDriverInstalled(driverName As String) As Boolean
    Dim regPath As String
    Dim regKey As Object
    Dim subKeys As Variant
    Dim i As Integer
    
    ' 根据Office位数选择注册表路径
    If Environ("PROCESSOR_ARCHITECTURE") = "AMD64" And Environ("PROCESSOR_ARCHITEW6432") = "x86" Then
        ' 32位Office在64位系统上
        regPath = "SOFTWARE\Wow6432Node\Microsoft\OLE DB\Providers"
    Else
        ' 64位Office或32位系统
        regPath = "SOFTWARE\Microsoft\OLE DB\Providers"
    End If
    
    On Error Resume Next
    Set regKey = CreateObject("WScript.Shell").RegRead(regPath & "\")
    If Err.Number <> 0 Then
        IsDriverInstalled = False
        Exit Function
    End If
    On Error GoTo 0
    
    subKeys = regKey
    For i = LBound(subKeys) To UBound(subKeys)
        If subKeys(i) = driverName Then
            IsDriverInstalled = True
            Exit Function
        End If
    Next i
    
    IsDriverInstalled = False
End Function

' 使用示例
Sub TestDriverDetection()
    Dim hasJet As Boolean, hasAce As Boolean
    hasJet = IsDriverInstalled("Microsoft.Jet.OLEDB.4.0")
    hasAce = IsDriverInstalled("Microsoft.ACE.OLEDB.12.0")
    
    If hasJet Then
        Debug.Print "Jet 4.0驱动已安装"
    End If
    If hasAce Then
        Debug.Print "ACE 12.0驱动已安装"
    End If
End Sub

注意：读取注册表可能需要管理员权限，所以如果是普通用户运行，可能会失败——这也是为什么我更推荐方案一的原因。

关键注意事项 #

• 32位/64位兼容性：如果你的Office是32位，即使系统是64位，也必须安装32位的ACE驱动（反之亦然），否则会出现「找不到驱动」的错误。
• ACE驱动的安装：如果机器上没装ACE驱动，你可以引导用户下载微软的Access Database Engine（比如2016版本，兼容MDB）。
• Win10/Win11的Jet驱动：Win10及以后默认移除了Jet 4.0，但如果用户装了旧版本的Office（比如Office 2007及以前），可能还保留着这个驱动。

内容的提问来源于stack exchange，提问作者Maury Markowitz