=SQLPREPARE(gnC, tcSQL) nRtnValue = SQLEXEC(gnC, tcSQL, tcCursor) IF lnRtnValue < 1 =AERROR[laError] tcError = laError[2] _Cliptext = tcSQL ELSE =SQLCOMMIT(gnC) ENDIF