Hello,

you may check this reading some connection setting with SQLGETPROP and catching
the error if the handle is not valid
e.g.

FUNCTION IsConnectionValid(lnConHandle)
LOCAL lbValid
lbValid = .T.
TRY
 SQLGETPROP(lnConHandle,'ConnectBusy')
CATCH TO loError WHEN loError.ErrorNo = 1466 && Connection handle invalid error
   lbValid = .F.
ENDTRY
RETURN lbValid
ENDFUNC

Regards
Christian