You can use the tabledefs collection to check the connect property and the name of the source table.
CurrentDB.TableDefs("dbo_table_name").SourceTableName CurrentDB.TableDefs("dbo_table_name").Connect
or
Dim tdf As TableDef Dim db As Database Set db = CurrentDb For Each tdf In CurrentDb.TableDefs If tdf.Connect <> vbNullString Then Debug.Print tdf.Name; " -- "; tdf.SourceTableName; " -- "; tdf.Connect End If Next
Fionnuala
source share