Function ConnectTbl(TDB As Database, _
                     dbNAM As String, _
                     tdfNAM As String, _
                     Optional tdfNamConnect As String = "") As Boolean
On Error GoTo Error_Connect_Mdb
                    
  Dim tdfLinked As TableDef, Vidtbl As String
  If right(dbNAM, 3) = "dbf" Then
     dbNAM = DirSubst(dbNAM)
     Vidtbl = "dBase IV"
  Else
     Vidtbl = ""
  End If
  
  If tdfNamConnect = "" Then
    tdfNamConnect = tdfNAM
  End If

  ' Создает новый объект TableDef,задает его свойства Connect
  ' и SourceTableName на основании переданных аргументов,
  ' добавляет объект в семейство TableDefs.
  Set tdfLinked = TDB.CreateTableDef(tdfNamConnect)
  tdfLinked.connect = Vidtbl & ";DATABASE=" & dbNAM
  tdfLinked.SourceTableName = tdfNAM
  TDB.TableDefs.Append tdfLinked
  
  ConnectTbl = True
  
  ' обработка ошибок
  '====================
  GoTo End_func
Error_Connect_Mdb:
  If tdfNAM = "Nastr" Then
  Else
     Inf_Error ("ConnectTbl()")
     ConnectTbl = False
  End If
End_func:
  
End Function