Public Sub DoNewTable()
Dim MyWorkSpace As Workspace
Dim dbs As Database
Dim TabCom As DAO.TableDefs
Dim BasePath As String
...
Dim tdf As TableDef
...
    BasePath = "C:\Baza.mdb"
    Set MyWorkSpace = DBEngine.Workspaces( 0 )
    Set dbs = MyWorkSpace.OpenDatabase(BasePath)
    Set TabCom = dbs.TableDefs
    'Удаление старой таблицы "Таблица"
    On Error Resume Next
    TabCom.Delete "Таблица"
    Set TabCom = Nothing
    'Создание новой таблицы пустой
    Set tdf = dbs.CreateTableDef("Таблица")
    With tdf
        ' Создание полей и добавление их в новую таблицу
        ' Это делается перед добавлением таблицы в базу данных
        .Fields.Append .CreateField("Номер", dbLong)
        ...
        tdf.Fields("Факс").AllowZeroLength = True
        tdf.Fields("Выполнено").AllowZeroLength = True
        ....
        dbs.TableDefs.Append tdf
    End With
    Set tdf = Nothing
    'Просматриваем таблицу СписокAll и добавляем наименования
    'В таблицу Таблица
    ...код заполнения новой "Таблица" данными
    Set dbs = Nothing
End Sub

    Set TabCom = dbs.TableDefs
    'Удаление старой таблицы "Таблица"
    On Error Resume Next
    TabCom.Delete "Таблица"
    Set TabCom = Nothing

    Set TabCom = dbs.TableDefs
    'Удаление старой таблицы "ТаблицаOld"
    On Error Resume Next
    TabCom.Delete "ТаблицаOld"
     'Копирование Таблица в резервную копию
    TabCom("Таблица").Name = "Таблицаold"
    Set TabCom = Nothing