подходящий драйвер для обновления связанных таблиц

[Артём812]

Добрый вечер Всем!
Написал макрос для обновления данных в связанной книге из текущей книги. При обновлении таблицы пишет ошибку, что возможность обновления связанных данных отсутствует в этом выпуске Access (см картинку во вложении).
Может быть кто сталкивался с такой проблемой. Excel 2016
Заранее всем Большое спасибо!

Код:

Private Sub INNER_JOIN_UPDATE_TABLE()
Dim myConnect As Object, mySQL As String, myRecord As Object, QT As QueryTable
Dim DataRange As String, strAddress As String, wshTarget As Worksheet, wbTarget As Workbook
Dim FSO As FileDialog, Target
    Set FSO = Application.FileDialog(msoFileDialogFilePicker)
    With FSO
        .AllowMultiSelect = False
        .Show
    End With
    Set wbTarget = GetObject(FSO.SelectedItems(1))
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    DataRange = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"
    Set myConnect = CreateObject("ADODB.Connection")
    Set myRecord = CreateObject("ADODB.Recordset")
    myConnect.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & wbTarget.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=YES"""
    Target = "[" & wbTarget.FullName & "].[" & wbTarget.Sheets(1).Name & "$]"

    mySQL = "UPDATE [Лист1$] as t INNER JOIN [" & ThisWorkbook.FullName & "].[Лист1$] as f ON t.[Имя]=f.[Имя] SET t.[SUM1]=IIF(t.[Имя]=f.[Имя], f.[Сумма], NUll)"
    myConnect.Execute mySQL
    wbTarget.Close True
    myConnect.Close
    Set myConnect = Nothing
End Sub