Routine below dies on the "for each p" line, getting -2147319779 (8002801D) automation error, library not registered.
The libraries in question ADO 2.5 and ADOX 2.5. I've even added the "installed version" reference in my project to see if that covers the interface exposure gap I'm experiencing (since I am using half of the above-mentioned library already). It's the reference that's bombing out, not the code. I'm unfortunately not in a position to re-install Office because I'm in a controlled corporate environment, but was hoping for a quick off-the-cuff fix that I could implement. I've attached a low-bandwith image of the references used.
Private Sub IdentifyLinkedTables()
Dim m_cat As ADOX.Catalog
Dim t As ADOX.Table
Dim p As ADOX.Property
Set m_cat = New ADOX.Catalog
m_cat.ActiveConnection = CurrentProject.Connection
For Each t In m_cat.Tables
If t.Type = "link" Then
Debug.Print "-------------"
Debug.Print t.Name
For Each p In t.Properties
Debug.Print p.Name
Next
End If
Next
Set m_cat = Nothing
End Sub