' Создание в базе данных таблицы
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column

' Установка каталога, указывающего на базу данных
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    
' Создаем таблицу
    Set tbl = New ADOX.Table
    tbl.Name = Имя_Таблицы
    
' Добавляем в таблицу столбец номер показателя
    Set col = New ADOX.Column
    col.Name = "1"
    col.Type = adInteger
'    col.Properties ("") ???
    Set col.ParentCatalog = cat
    tbl.Columns.Append col
   
' Сохраняем таблицу
    cat.Tables.Append tbl