oAccess = createobject("Access.application") oAccess.visible= .t. newMDB = oAccess.NewCurrentDatabase("C:\accesstest") tdfnew = oAccess.CurrentDb.CreateTableDef('testtable') with tdfnew .fields.append .CreateField("FirstName", "dbText") .fields.append .CreateField("LastName", "dbText") .fields.append .CreateField("Phone", "dbText") .fields.append .CreateField("Notes", "dbMemo") newMDB.TableDefs.append tdfnew endwith