!!!Access VBA テーブル作成
Access 2000

::DAOを使用
*参照設定が必要
*[データベースの新規作成、テーブル、クエリの作成はADOでは実現できません。発展的な機能であるADOXで実現します。この点が全ての操作が可能なDAOと異なります。|http://www.accessclub.jp/ado/01.html]

 Sub CreateTable ()
     Dim dbs As Database
     Dim tbl As TableDef
     Dim fld As Field
 
     Set dbs = CurrentDB
 
     Set tbl = dbs.CreateTableDef("NewTableName")
     Set fld = tbl.CreateField("NewField", dbText)
 
     tbl.Fields.Append fld
     dbs.TableDefs.Append tbl
     dbs.TableDefs.Refresh
 End Sub