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