Const m_sConnect As String = "ODBC;DRIVER=SQL Server;SERVER=MyServer;Trusted_Connection=Yes;APP=Microsoft Office 2010;DATABASE=Àäìèíêà;LANGUAGE=MyBase"

Public Sub ReLinkAllTables()
    Dim sSqlServer As String, sSqlDatabase As String
    Dim cs As New ADODB.Connection, rs As New ADODB.Recordset, rd As New ADODB.Recordset, rss As New ADODB.Recordset
    Dim db As DAO.Database, tb As DAO.TableDef
    Dim b As Boolean, sTable As String, sNTable As String, mm() As String, m() As String, i As Integer
    
    mm = Split(m_sConnect, ";")
    For i = 0 To UBound(mm)
        m = Split(mm(i), "=")
        Select Case m(0)
            Case "SERVER"
                sSqlServer = m(1)
            Case "DATABASE"
                sSqlDatabase = m(1)
        End Select
    Next i
    
    DoCmd.Hourglass True
    Set db = CurrentDb

    cs.CursorLocation = adUseClient
    cs.Provider = "SQLOLEDB.1"
    cs.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Data Source=""" & sSqlServer & """;Initial Catalog=" & sSqlDatabase
    cs.Open
    
    rs.Fields.Append "SQL_Table", adVarWChar, 128, adFldUnknownUpdatable
    rs.Open
    rd.Fields.Append "MDB_Table", adVarWChar, 128, adFldUnknownUpdatable
    rd.Open
    For Each tb In db.TableDefs
        If Len(tb.Connect) Then
            rd.AddNew
            rd!MDB_Table = tb.Name
            rd.Update
        End If
    Next tb
    
    rss.Open "SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE NOT TABLE_NAME='sysdiagrams' AND TABLE_TYPE='BASE TABLE' ORDER BY TABLE_NAME", cs, adOpenStatic, adLockReadOnly
    Do Until rss.EOF
        sTable = rss!TABLE_SCHEMA & "." & rss!TABLE_NAME
        sNTable = rss!TABLE_SCHEMA & "_" & rss!TABLE_NAME
        rd.Find "MDB_Table = '" & sNTable & "'", , , 1: b = True
        If Not rd.EOF Then
            Set tb = db.TableDefs(sNTable)
            b = tb.Connect <> m_sConnect Or tb.SourceTableName <> sTable
            If b Then db.TableDefs.Delete sNTable
        End If
        If b Then
            Set tb = db.CreateTableDef(sNTable)
            tb.Connect = m_sConnect
            tb.SourceTableName = sTable
            db.TableDefs.Append tb
        End If
        
        rs.AddNew
        rs!SQL_Table = sNTable
        rs.Update
        
        rss.MoveNext
    Loop
    If rd.RecordCount Then
        rd.MoveFirst
        Do Until rd.EOF
            rs.Find "SQL_Table='" & rd!MDB_Table & "'", , , 1
            If rs.EOF Then db.TableDefs.Delete rd!MDB_Table
            rd.MoveNext
        Loop
    End If

    db.TableDefs.Refresh
    DoCmd.Hourglass False
End Sub

Const m_sConnect As String = "ODBC;DRIVER=SQL Server;SERVER=MyServer;Trusted_Connection=Yes;APP=Microsoft Office 2010;DATABASE=MyBase;LANGUAGE=русский"