LOCAL lcOnError,llError
lcOnError = on( "error" )
on error llError = .t.
llError = .f.
oServer = CREATEOBJECT('SQLDMO.SQLSERVER')
if !llError and type( "oServer" ) =  "O"   && всё OK
....
else &&ошибка
....
endif
on error &lcOnError