MS Access | DAO | Создать таблицу

'создание таблицы в DAO

Sub CreateTable_DAO()

Dim db As Database

Dim tbl As TableDef

Set db = CurrentDb

Set tbl = db.CreateTableDef("NewTable")

tbl.Fields.Append tbl.CreateField("MyField", dbText)

db.TableDefs.Append tbl

db.TableDefs.Refresh

End Sub