If FindTable( "ИмяТаблицы" ) = True Then ' найти таблицу
    CurrentDb.TableDefs.Delete "ИмяТаблицы"  ' если найдена, то удалить
End If

Private Function FindTable(TableName As String) As Boolean
Dim dbs As Database, tdfLoop As TableDef
' найти в базе таблицу с именем TableName
    Set dbs = CurrentDb

    For Each tdfLoop In dbs.TableDefs
        If LCase$(tdfLoop.Name) = TableName Then
            FindTable = True    ' таблица найдена
            Exit For            ' выйти из цикла
        End If
    Next tdfLoop
    Set dbs = Nothing
End Function