nSQLHandle = SqlConnect ("MyVFPDataSource") If nSQLHandle = -1 MessageBox ("Connection failed") Return endif cObjtSQLcommand = "Create Table MyTable (Name C(40))" If SqlExec (nSQLHandle, cObjtSQLcommand) <> 1 MessageBox ("SqlExec error") endif SqlDisconnect (nSQLHandle)