Public Sub procCreateDatabase()
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    
    Set cat = New ADOX.Catalog
    Set tbl = New ADOX.Table
    Set col = New ADOX.Column
    
    cat.Create _
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Movies\db1.mdb"
          
    tbl.Name = "Table1"

    col.ParentCatalog = cat
    col.Name = "TextField"
    col.Type = adVarWChar
    col.Properties("Nullable") = True ' Обязательное поле - Нет

    tbl.Columns.Append "IDField", adInteger
    tbl.Columns.Append col

    cat.Tables.Append tbl
    
    Set col = Nothing
    Set tbl = Nothing
    Set cat = Nothing
End Sub

    col.Properties("Jet OLEDB:Allow Zero Length") = True