Dando per scontato che l'mdb lo hai gia:

Dim DB As Database

Set DB = OpenDatabase(DBDir & "\prova.mdb", dbOpenDynaset)

strSql = "CREATE TABLE Prova ( ID counter CONSTRAINT MIO PRIMARY KEY , campo1 INTEGER NULL, Data DATE NULL, campo2 char(255) NULL, Descr memo )"

DB.Execute (strSql)
DB.Close
Set DB = Nothing

Cosi creo la tabella.