Dim a AsNew VisualFoxpro.FoxApplication
a.DoCmd(
"Create Table TestTable(Field1 Char(10))")