Public Sub CreateDatabase()
    Dim adoxCat 'As ADOX.Catalog
    Dim adoxTbl 'As ADOX.Table
    Dim adoxCol 'As ADOX.Column
    
    ' Create the new database.
    Set adoxCat = CreateObject("ADOX.Catalog") 'New ADOX.Catalog
    adoxCat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & LogPath & "\mydatabase.mdb" & ";Jet OLEDB:Database Password=mypassword"
    '======================================================================
    ' Create a new table (inbox).
    Set adoxTbl = CreateObject("ADOX.Table") ' New ADOX.Table
    With adoxTbl
        .name = "inbox" 'имя таблицы
        ' создаем новый объект Column (он же поле таблицы)
        Set adoxCol = CreateObject("ADOX.Column") 'New ADOX.Column
        With adoxCol
            .ParentCatalog = adoxCat 'ссылка на каталог
            .name = "ID" 'имя поля
            .Type = adInteger 'тип поля
            .Properties("AutoIncrement").Value = True ' будет счетчик
        End With
        .Columns.Append adoxCol, adInteger ' добавляем поле в коллекцию
...