Private Sub Command11_Click()
Dim strSQL As String
DoCmd.SetWarnings (False)
strSQL = "DELETE * FROM LinkedTables"
DoCmd.RunSQL (strSQL)
strSQL = "INSERT INTO LinkedTables (TblName, fromDatabase, fromTable) " & _
"SELECT MSysObjects.Name, MSysObjects.Database, MSysObjects.ForeignName " & _
"FROM MSysObjects WHERE (((MSysObjects.Type)=6));"
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings (True)
MsgBox "Linked table names copied!", vbInformation, "Done"
End Sub