Sub LinkedTableCheck()
Dim myPath As String
Dim myConnect As String
Dim myDB As Database
Dim myTableDef As TableDef
Set myDB = CurrentDb()
For Each myTableDef In myDB.TableDefs
If myTableDef.Attributes = dbAttachedTable Then Exit For
Next
myConnect = Mid(myTableDef.Connect, InStr(myTableDef.Connect, "=") + 1)
myPath = Dir(myConnect)
Debug.Print myTableDef.Name & ", " & myTableDef.Connect
Debug.Print myConnect
Debug.Print mytest
If myPath = "" Then MsgBox ("related db not found")
End Sub