Dim Td As TableDef
    Dim S As String
    Dim T As String
On Error GoTo Er
    S = Nz(Me.ServerDB, "")   ' S - сетевой путь к серверной базе
    If (Len(Trim(S)) > 0) Then
        If (Dir(S, vbNormal) <> "") Then
            T = ";DATABASE=" & S
            For Each Td In CurrentDb.TableDefs
                If (Len(Td.Connect) > 0) Then
                     Td.Connect  = T
                     Td.RefreshLink 
                End If
            Next Td
        Else
            MsgBox "File '" & S & "' not found!"
        End If
    Else
        MsgBox "Bad File Name '" & S & "'!"
    End If
...