подключить ADODB.Command через References
c sql запросом
CREATE TABLE Таблица
(Колонка1 NUMBER(9) ,
Колонка2 VARCHAR2(50))

или
подкличить ADOX библиотеку и использовать его для создания новой таблицы


Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\база.mdb"


Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
tbl.Name = "Таблица"
tbl.Columns.Append "Колонка1", adLongVarBinary
tbl.Columns.Append "Колонка2", adVarWChar, 50
cat.Tables.Append tbl