Windows 8 将VB6数据库迁移到windows 8

首先我只想指出，我对VB6几乎一无所知。我正试图帮助一位朋友，把她所有的东西从旧的XP机器搬到新的Windows8机器上。除了她的VB6数据库，我几乎什么都有。有人能帮我吗

我已经复制了包含数据库的VB6文件夹。当我运行它时，我得到以下错误

“运行时错误3706-找不到提供程序。它可能未正确安装。”

我已经在谷歌上搜索了一下，找到了包含提供商详细信息的文件。有人知道我需要改变什么才能让它工作吗

非常感谢你的帮助

Attribute VB_Name = "Startup"
Option Explicit

Public Gdb As ADODB.Connection
Public GfrmMainForm As frmMain
Public GstrPrinterFont As String

Sub Main()

Dim strFullName As String

    Set GfrmMainForm = New frmMain
    GfrmMainForm.Show

    strFullName = ZADFullDatabaseName("Contacts", "M")
    If Not ZIsFile(strFullName) Then
        MsgBox strFullName & " does not exist", vbOKOnly
        MsgBox ("Terminating " & App.Title)
        End                         ' Something wrong with files, so exit
    End If

    Set Gdb = New ADODB.Connection
    Gdb.CursorLocation = adUseClient
    Gdb.IsolationLevel = adXactCursorStability
    Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" _
        & strFullName & ";"

End Sub

---

根据为Jet安装的OLE DB提供程序， 更改：

到

或

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" &  strFullName & ";"

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &  strFullName & ";"

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.12.0;Data Source=" &  strFullName & ";"