if SQLExec(lnHandle, lcSQL, lcResultCursorName ) < 0 CheckError(lcSQL) *... Function CheckError Lparameters tcSQL local ix,lcError local array arrCheck lcError=tcSQL+chr(13) Aerror(arrCheck) For ix=1 to 7 lcError = lcError+trans( arrCheck [ix])+ chr(13) Endfor Messagebox(lcError,0,'Error def.') returnCetin