Не находит OLEDB 12

    Dim supportedProviders As String() = {"Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0"}
    Dim providerIndex As Integer = -1
 
    Using dbReader = OleDbEnumerator.GetRootEnumerator()
 
        While dbReader.Read()
            Dim idx As Integer = Array.IndexOf(supportedProviders, CStr(dbReader("SOURCES_NAME")))
            If idx = -1 Then Continue While
            If providerIndex = -1 OrElse (providerIndex <> -1 AndAlso providerIndex > idx) Then providerIndex = idx
        End While
    End Using
 
    If providerIndex <> -1 Then
        Dim provider As String = supportedProviders(providerIndex)
    Else
         'Не найден провайдер для Access
    End If

' Список провайдеров в порядке убывания приоритета
Dim supportedProviders As String() = {"Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0"}
Dim installedProviders = New OleDbEnumerator().GetElements().AsEnumerable().Select(Function(row) row.Field(Of String)("SOURCES_NAME"))
Dim provider As String = supportedProviders.Intersect(installedProviders).FirstOrDefault()
If provider Is Nothing Then
    ' Не найден провайдер для Access
Else
    ' Подключение используя значение provider
End If

Dim csb As New OleDbConnectionStringBuilder("твоя строка соединения без указания provider")
csb.Provider = GetAccessProvider()
Dim connectionString As String = csb.ConnectionString
Dim connection As New OleDbConnection(connectionString)

If provider Is Nothing Then
    ' Не найден провайдер для Access
Else
    ' Подключение используя значение provider
End If

Function GetAccessProvider() As String
    ' Список провайдеров в порядке убывания приоритета
    Dim supportedProviders As String() = {"Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0"}
    Dim installedProviders = New OleDbEnumerator().GetElements().AsEnumerable().Select(Function(row) row.Field(Of String("SOURCES_NAME"))
    Return supportedProviders.Intersect(installedProviders).FirstOrDefault()
End Function

 Function GetAccessProvider() As String
        ' Список провайдеров в порядке убывания приоритета
        Dim supportedProviders As String() = {"Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0"}
        Dim installedProviders = New OleDbEnumerator().GetElements().AsEnumerable().Select(Function(row) row.Field(Of String)("SOURCES_NAME"))
        Dim provider As String = supportedProviders.Intersect(installedProviders).FirstOrDefault()
        If provider Is Nothing Then
            ' Не найден провайдер для Access
            MsgBox("Не найден OLEDB")
        Else
            Dim csb As New OleDbConnectionStringBuilder("твоя строка соединения без указания provider")
            csb.Provider = GetAccessProvider()
            Dim connectionString As String = csb.ConnectionString
            Dim connection As New OleDbConnection(connectionString)
        End If
        Return supportedProviders.Intersect(installedProviders).FirstOrDefault()
    End Function

Private Sub Button1_Click(sender As Button, e As EventArgs) Handles Button1.Click
        Dim csb As New OleDbConnectionStringBuilder("Data Source=файл_вашей_базы_данных.mdb")
        csb.Provider = GetAccessProvider()
        Dim connectionString As String = csb.ConnectionString
        Dim connection As New OleDbConnection(connectionString)
    End Sub
 
    Function GetAccessProvider() As String
        ' Список провайдеров в порядке убывания приоритета
        Dim supportedProviders As String() = {"Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0"}
        Dim installedProviders = New OleDbEnumerator().GetElements().AsEnumerable().Select(Function(row) row.Field(Of String)("SOURCES_NAME"))
        Return supportedProviders.Intersect(installedProviders).FirstOrDefault()
    End Function