Уважаемый форум,

Никак не могу понять, что за хрень...
Есть база Access Office 365 с таблицами, связанными с SQL server-ом. При запуске базы эти таблицы должны перелинковаться к серверу:

For Each tb In CurrentDb.TableDefs
    If Left(tb.Connect, 4) = "ODBC" Then
       tb.Connect = "ODBC;DRIVER=SQL Server Native Client 10.0;SERVER=SQLserver;;Trusted_Connection=Yes;APP=Microsoft Office 2016;DATABASE=MyDB;"
       tb.RefreshLink                      <= здесь вылетает ошибка ODBC call failed с кодом 3146 
End If
Next tb

Если руками создать файл .dsn и перелинковать таблицы, на этом месте все равно ошибка. Убираю этот код и все работает. Вопрос: как правильно организовать перелинковку таблиц к серверу, чтобы на любой машине работало полностью автоматически, без вызова менеджера связей таблиц и т.д. Спасибо!

https://www.sql.ru/forum/1309421/odbc-call-failed