*SQLPREPARE(m.Handle, 'SELECT * FROM useraccess', 'test')
*SQLEXEC(m.Handle)
*SQLEXEC(m.Handle, "use RemoteAccess")
IF SQLExec(m.Handle, "SELECT * FROM useracess", "test") 0


MESSAGEBOX("Success")
ELSE
MESSAGEBOX("Failed")

ENDIF

lnResult = SQLEXEC(m.Handle, "SELECT * FROM useracess", "test")
DO CASE
CASE lnResult 0
AERROR(laError)
MessageBox(laError[1,2])
RETURN
CASE lnResult = 0

OTHERWISE
MESSAGEBOX('No Error')
*** Success
ENDCASE


Messagebox results:Failed, No error