Fijate con ADOX, esta es una forma otra es con sentencias SQL DML (CREATE DATABASE, CREATE TABLE) pero creo que es más complejo. Esta es una forma:
Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
objCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MiBase.mdb"
Set objTable = New Table
objTable.Name = "TablaNueva"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarWChar, 50
objCatalog.Tables.Append objTable