Sub CreateAccessDatabaseWithoutAccess()
     
    Dim cat As ADOX.Catalog '// Каталог (база данных)
    Dim t As ADOX.Table     '// Таблица
    Dim c As ADOX.Column    '// Столбец
     
    '// Создаём файл базы данных "C:\Temp\1.mdb".
    Set cat = New ADOX.Catalog
    '// Excel 2007+
    cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Temp\1.mdb"
    '// Excel 97-2003
    '// cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\1.mdb"
     
    '// Создаём таблицу
    Set t = New ADOX.Table
    t.Name = "User"
     
    '// Создаём два столбца: Id и UserName
    Set c = New ADOX.Column
    c.Name = "Id"      '// Название столбца
    c.Type = adInteger '// Тип данных
    t.Columns.Append c '// Добавляем столбец в таблицу
 
    Set c = New ADOX.Column
    c.Name = "UserName"
    c.Type = adWChar
    c.DefinedSize = 255
    t.Columns.Append c
 
    '// Добавляем таблицу в базу
    cat.Tables.Append t
     
    Set cat = Nothing
     
End Sub