CreateDB

Dim DB As Database
Set DB = CreateDatabase("C:\Temp\Db.mdb", dbLangGeneral &
";pwd=MiaPassword")
'possibile alternativa di esempio:

'Set DB = CreateDatabase("C:\Temp\Db.mdb", dbLangSpanish), o cose del

genere
Dim Td As TableDef
Set Td = DB.CreateTableDef("Tabella1")
Td.Fields.Append Td.CreateField("Campo1", dbInteger)
Td.Fields.Append Td.CreateField("Campo2", dbText, 50)
Td.Fields.Append Td.CreateField("Campo3", dbBoolean)
Td.Fields.Append Td.CreateField("Campo4", dbDate)
'e cosi' via...

DB.TableDefs.Append Td
'ripetere per creare nuove tabelle