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

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

Sub CreateTable_ADO()

Dim db As ADOX.Catalog, tbl As ADOX.Table

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

Set tbl = New ADOX.Table

tbl.Name = "NewADOTable"

tbl.Columns.Append "MyField", adWChar

db.Tables.Append tbl

db.Tables.Refresh

End Sub