<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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=" &