Function PrisoedenitTablitsu(rstrTblSrc As String)
On Error GoTo Err_Handler
Dim lbl As Label
Dim tdf As TableDef
Dim rstrTblDest As String
Dim db As Database
Dim serverConn As String
  
  Set db = CurrentDb
  Set tdf = db.CreateTableDef(rstrTblSrc)
  
  serverConn = "ODBC;DSN=PostgreSQL35W" _
    & ";DATABASE=" & baseName _
    & ";SERVER=" & hostName _
    & ";PORT=" & portNo _
    & ";Uid=" & userName _
    & ";Pwd=" & psw
  
  Debug.Print serverConn
    
  tdf.Connect = serverConn
  tdf.SourceTableName = rstrTblSrc
  db.TableDefs.Append tdf
  'db.TableDefs.Refresh
  'db.TableDefs(tdf.Name).RefreshLink
  'tdf.RefreshLink
  RefreshDatabaseWindow
lbl:
  
  'закрываем лавочку
  Set tdf = Nothing
  db.Close
  Set db = Nothing
  
  Debug.Print "Подключена таб: " & rstrTblSrc
  
  Exit Function
  
Err_Handler:
    
  If Err.Number = 3010 Then 'таблица с таким уменем уже есть
  
    DoCmd.Close acTable, rstrTblSrc 'закрываем, если открыта
    
    If IsTableExist(rstrTblSrc) = 2 Then DoCmd.DeleteObject acTable, rstrTblSrc '2 - Таблица присоединенная. Удаляем
    
    db.TableDefs.Refresh
    Set tdf = Nothing
    db.Close
    Set db = Nothing
    
    Debug.Print "отключена таб " & rstrTblSrc
    
    Call PrisoedenitTablitsu(rstrTblSrc) 'линкуем по новой
    
  Else
    Debug.Print Err.Number, Err.Description
    'Stop
    'Resume 
    GoTo lbl
  End If
    
End Function