Public Function Reconnect(strPath1 As String, strPath2 As String)
    Dim db As Database
    Set db = CurrentDb
    Dim tds As TableDefs
    Set tds = db.TableDefs
    Dim td As TableDef
    Dim i As Long
    SysCmd acSysCmdInitMeter,  "Обновление связанных таблиц" , tds.count
    For i =  0  To tds.count -  1 
        Set td = tds(i)
        If CBool(td.attributes And dbAttachedTable) Then
            If InStr(td.Connect,  "db1.mdb" ) <>  0  Then
                If Len(strPath1) <>  0  Then
                    td.Connect =  ";DATABASE="  & strPath1
                    td.RefreshLink
                End If
            ElseIf InStr(td.Connect,  "db2.mdb" ) <>  0  Then
                If Len(strPath2) <>  0  Then
                    td.Connect =  ";DATABASE="  & strPath2
                    td.RefreshLink
                End If
            End If
        End If
        SysCmd acSysCmdUpdateMeter, i
    Next i
    SysCmd acSysCmdClearStatus
End Function