create db
create a database file at "c:\test.mdb"

Dim objADOXDatabase
Set objADOXDatabase = CreateObject("ADOX.Catalog")

'Create the database file
objADOXDatabase.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                       "Data Source=c:\test.mdb"

create table
Create a table called "daten" in the database file "c:\test.mdb":

'Create table
Set objConnectionA = CreateObject("ADODB.Connection")
objConnectionA.Open _
   "Provider= Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source= c:\test.mdb"
objConnectionA.Execute "CREATE TABLE daten(" & _
   "Spalte1 TEXT(50) ," & _
   "Spalte2 TEXT(100) ," & _
   "Spalte3 TEXT(100))"
objConnectionA.Close