Public Function LinkTables()
    Dim T As TableDef
    Dim N As String
    Dim S As String
    Dim C As String
    Dim I As Integer
    Dim J As Integer

    S = CurrentDb.Name
    N = Dir(S)
    S = Left(S, Len(S) - Len(N))
    N =  "\"  & Left(N, Len(N) -  5 ) &  "_dat.mdb" 

    For Each T In CurrentDb.TableDefs
        C = T.Connect
        I = InStr(C,  "DATABASE=" )
        If I >  0  Then
            I = I +  9 
            J = InStr(I, C, N)
            If J <=  0  Then J = InStr(I, C,  ";" )
            If J <=  0  Then J = Len(C) +  1 
            If Mid$(C, I, J - I) <> S Then
                C = Left$(C, I -  1 ) & S & Mid$(C, J)
                T.Connect = C
                T.RefreshLink
            End If
        End If
    Next
End Function