Function Relink(Putanja As String)
Dim db As DAO.Database
Dim SQL As String
Dim Rs As Recordset
Dim ImeTablice As String

Set db = CurrentDb
SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null"
Set Rs = db.OpenRecordset(SQL)
DoCmd.Hourglass True
Do While Not Rs.EOF
    ImeTablice = Rs!Name
    db.TableDefs(ImeTablice).Connect = ";DATABASE=" & Putanja
    db.TableDefs(ImeTablice).RefreshLink
Rs.MoveNext
Loop
Rs.Close

DoCmd.Hourglass False
DoCmd.OpenQuery "Q_MsysObjects"

End Function