Dim MyCat As ADOX.Catalog
Dim MyTable As ADOX.Table
Dim MyPr As ADOX.Property
Set MyCat = New ADOX.Catalog
MyCat.ActiveConnection = CurrentProject.Connection
For Each MyTable In MyCat.Tables
If MyTable.Type = "Link" Then
  For Each MyPr In MyTable.Properties
     Debug.Print MyTable.Name; MyPr.Name; "-->"; MyPr.Value
  Next MyPr
End If
Next MyTable
Set MyCat = Nothing

~TMPCLP10831Temporary Table-->False
~TMPCLP10831Jet OLEDB:Table Validation Text-->
~TMPCLP10831Jet OLEDB:Table Validation Rule-->
~TMPCLP10831Jet OLEDB:Cache Link Name/Password-->False
~TMPCLP10831Jet OLEDB:Remote Table Name-->tmpExport#txt
~TMPCLP10831Jet OLEDB:Link Provider String-->Text;DSN=TmpExport - спецификация связи;FMT=Fixed;HDR=NO;IMEX= 2 ;CharacterSet= 866 ;
~TMPCLP10831Jet OLEDB:Link Datasource-->C:\Documents and Settings\excadmin\My Documents
~TMPCLP10831Jet OLEDB:Exclusive Link-->False
~TMPCLP10831Jet OLEDB:Create Link-->True
~TMPCLP10831Jet OLEDB:Table Hidden In Access-->False