>an error occured when run the prg .......
>
>Function errHand
>Lparameters tcSQL
>lcError=tcSQL+chr(13) <-------------- operator/operand type mismatch
>Aerror(arrCheck)
>For ix=1 to 7
> lcError = lcError+trans( arrCheck [ix])+ chr(13)
>Endfor
>Messagebox(lcError,0,'Error def.')

tcSQL needs to be char. It's my own small utility to check SQLExec commands quickly. You don't need to use it and have your own error checking.
Cetin