If IsTableExist(TargetTableName) =  2  Then dbCurrent.TableDefs.Delete TargetTableName
  If IsTableExist(TargetTableName) <>  0  Then GoTo AttachTableErr

  If IsMissing(KeyFieldName) = False Then
    If (nz(KeyFieldName,  "") <> "  ") And (IsTableExist(TargetTableName) = 2 ) Then
      'Создадим псевдоиндекс - первичный ключ.
      dbCurrent.Execute "CREATE UNIQUE INDEX PrimaryKey ON  " _
       & TargetTableName & " ( " & KeyFieldName & " )"
    End If
  End If

Function IsTableExist(TableName As String) As Long
' Функция возвращает следующие коды:
'  0  - Ни таблицы ни запроса с указанным именем не существует.
' 1 - Существует локальная таблица с указанным именем.
'  2  - Существует присоединённая таблица с указанным именем.
' 3 - Существует запрос с указанным именем.

On Error Resume Next
Dim db As Database
Dim td As TableDef
Dim qd As QueryDef

  IsTableExist = 0
  
  err.Clear
  Set db = CurrentDb
  Set td = db.TableDefs(TableName)
  If err.Number = 0 Then
    If td.Connect = "" Then 'Таблица локальная
      IsTableExist =  1 
    Else 'Таблица присоединенная
      IsTableExist = 2
    End If
    Set td = Nothing
    Set db = Nothing
    Exit Function
  End If
  
  err.Clear
  Set qd = db.QueryDefs(TableName)
  If err.Number = 0 Then IsTableExist = 3 'Запрос
  Set qd = Nothing
  Set db = Nothing
  
End Function