Visual studio 2010 未注册Microsoft ace oledb 12.0

我的应用程序运行在64位windows 7和office 2013上 但由于某些原因，我今天不得不迁移到64位windows 10和64位office 2016 问题是，当我启动应用程序时，会出现以下错误： 未注册Microsoft ace oledb 12.0。 甚至当我试图将数据库文件与vs studio 2010 ultimate关联时，它也给了我同样的信息 我的应用程序如下所示：

Imports System.Data.DataTable
Imports System.Drawing

Public Class Form1
    Private mRow As Integer = 0
    Private newpage As Boolean = True
    Dim Table As New DataTable("Table")
    Dim pro As String
    Dim connstring As String
    Dim command As String
    Dim myconnection As OleDbConnection = New OleDbConnection
    Dim ds As New OleDbDataAdapter
    Dim con As New OleDbConnection
    Dim dt As New DataTable
   
  




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Mokhtar\Documents\Database10.accdb"
        connstring = pro
        myconnection.ConnectionString = connstring
        myconnection.Open()
        command = "insert into NewFolder ([NumD],[Objet],[Jur],[NomPA],[Info],[NomClient],[Tel],[Email],[Adr]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"
        Dim cmd As OleDbCommand = New OleDbCommand(command, myconnection)
        cmd.Parameters.Add(New OleDbParameter("NumD", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Objet", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Jur", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("NomPA", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Info", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("NomClient", CType(TextBox6.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Tel", CType(TextBox7.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Email", CType(TextBox8.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Adr", CType(TextBox9.Text, String)))
        MsgBox("Record Save")
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myconnection.Close()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox7.Clear()
            TextBox8.Clear()
            TextBox9.Clear()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub```

I don't know what to do

---

我刚刚通过将构建配置从x86设置为任意值解决了这个问题