Private Sub Command1_Click()
Dim mytabledef As TableDef
Dim myfield(9) As Field
Dim mydatabase As Database
Dim myfields As Fields
Set mydatabase = Workspaces(0).OpenDatabase(Text1.Text)
Set mytabledef = mydatabase.CreateTableDef(Text2.Text)
Set myfield(0) = mytabledef.CreateField(Text3.Text...