Path på sammenkædede tabeller?

Jeg bruger nedenstående kode til at opdatere stien til de sammenkædede tabeller i min database. Denne kan så sættes til at køre hver gang Access starter via Autoexec-makroen.

Jeg ønsker imidlertid kun at opdateringen af stien til de sammenkædede tabeller KUN finder sted 1 gang, og altså ikke kører hver eneste gang man starter Access op. Derfor har jeg brug for noget kode som tjekker om der er behov for en opdatering, inden den eventuelt eksekverer nedenstående opdateringskode.

Jeg har med andre ord brug for at få fat i path'en på de sammenkædede tabeller, så jeg kan sammenligne den med CurrentProject.Path, for at se om det er nødvendigt at køre en opdatering.

Hvordan gør jeg dette?




Public Function ReattachToNewBackend()
 
  On Error Resume Next 
  Dim lPath As String
  Dim lDB As DAO.Database
  Dim lTdf As TableDef
  Dim n As Integer
 
  Set lDB = CurrentDb

lPath = CurrentProject.Path & "\db2.mdb"
 
  For Each lTdf In lDB.TableDefs
    If Len(lTdf.Connect) > 1 Then
      lTdf.Connect = ";DATABASE=" & lPath
      lTdf.RefreshLink
    End If
    Next

End Function