Public Sub LinkedTablesInfo()
On Error GoTo er
   Dim cat As ADOX.Catalog
   Dim tbl As ADOX.Table
 
   Set cat = New ADOX.Catalog
   Set tbl = New ADOX.Table
 
    ' Open the catalog. 
   cat.ActiveConnection = CurrentProject.Connection
   For Each tbl In cat.Tables
      If tbl.Type = "LINK" Then
         Debug.Print tbl.NAME
         Debug.Print tbl.Properties("Jet OLEDB:Link Datasource")
         Debug.Print tbl.Properties("Jet OLEDB:Remote Table Name") & vbNewLine
      End If
   Next


er_exit:
    Exit Sub
    
er:
    MsgBox err.Description
    Resume er_exit
End Sub