Как опознать связанную таблицу Access

'определяет, является ли таблица связанной

Function IsLinkedTable(TableName As String) As Boolean

  IsLinkedTable = Len(CurrentDb.TableDefs(TableName).Connect) > 0

End Function