Private Sub Form_Open(Cancel As Integer)
Dim myRes$, pos As Integer, myFile$, i As Integer, tbl As TableDef, tbls As TableDefs, myDB As Database
myFile$ = CurrentDb.Name
pos = Len(myFile$)
For i =  1  To pos
    myRes = myRes & Mid$(myFile$, pos - i +  1 ,  1 )
Next
pos = InStr( 1 , myRes,  "\" )
myRes$ = Left(myFile, Len(myFile) - pos)
myRes$ = myRes &  "\QQQQQ_data.mdb" 
Set myDB = CurrentDb()
Set tbls = myDB.TableDefs

For Each tbl In tbls
    If Not tbl.Connect =  "" Then
        tbl.Connect = " ; DATABASE=" & myRes
        tbl.RefreshLink
    End If
Next
End Sub

Private Function getConnection(strConnect As String) As Boolean
Dim wrk As Workspace, db As Database, isErr As Boolean
Dim qds As QueryDefs, qd As QueryDef

Set wrk = DBEngine.Workspaces( 0 )
Set db = wrk.OpenDatabase( "", False, False, strConnect)
strConnect = db.Connect
db.Close

Set db = CurrentDb
Set qds = db.QueryDefs
For Each qd In qds
    If Left(qd.Name, 1 ) = "q" Then
        qd.Connect = strConnect
        qd.ODBCTimeout =  300 
    End If
Next

End Function