RE:Crear DB Access en ejecución
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