Sti til sammenkædede tabeller

Du kan bruge noget i stil med:

Dim db          As DAO.Database
Dim tdf        As TableDef
Set db = CurrentDb

For Each tdf In db.TableDefs
    'Er det et linked table så er connect > 0
    If Len(tdf.Connect) > 1 Then
        tdf.Connect = ";DATABASE=C:\minetabeller.mdb"
        tdf.RefreshLink
    End If
Next

Take a look at ThomasJepsens homepage where there is an example
http://www.makeiteasy.dk/eksempler/ReattachTables.zip

Tak for svarene.
Løsningen fra Thomas Jepsen er måske lige i overkanten til det jeg skal bruge det til.

Min kode endte med at sådan ud.

Private Sub Form_Load()
  On Error GoTo errHandler
  Dim lPath As String
  Dim lDB As DAO.Database
  Dim lTdf As TableDef
  Set lDB = CurrentDb
  lPath = CurrentProject.Path & "\MineTabeller.mdb"
  For Each lTdf In lDB.TableDefs
    'Er det et linked table så er connect > 0
    If Len(lTdf.Connect) > 1 Then
      lTdf.Connect = ";DATABASE=" & lPath
      lTdf.RefreshLink
    End If
  Next
errHandler:
  If Err.Number <> 0 Then
    MsgBox "Der opstod fejl ved sammenkædning af tabeller.", vbCritical, "Sammenkædede tabeller"
  End If
End Sub

Tak for hjælpen.

tak