'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~
'Library ADOX
'    C:\Program Files\Common Files\System\ADO\msadox.dll
'    Microsoft ADO Ext. 2.8 for DDL and Security
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~
 
Sub lnked() 
Dim AXct As ADOX.Catalog
Dim AXtb As ADOX.Table
 
Set Acnn = CurrentProject.Connection
Set AXct = New ADOX.Catalog
Set AXct.ActiveConnection = Acnn
 
For Each AXtb In AXct.Tables
    If AXtb.Type = "LINK" Then
        AXtb.Properties("Jet OLEDB:Link Datasource") = _
          "C:\temp\meine_datenbank.mdb"
    End If
Next AXtb
 
Set AXtb = Nothing
Set AXct = Nothing
Set Acnn = Nothing
End Sub