Capturar error en conexion Mysql por odbc

[RMC]

Hola,

Tengo un sistemita que se conecta por medio de internet a un servidor MYsql .

Para inicializar la conexion tengo la siguiente funcion:

function cargaSQL()

public oRdd:= Trddodbc():New("subsec", "subsec", "xxxxx")
public oODBC:= oRdd:oOdbc

If oOdbc:lSuccess
MSGINFO("Sistema inicializado correctamente","Conexión")

else

msgalert("El sistema no pudo abrir la base de datos, cerrando aplicacion...")
oOdbc:showerrorlist()
oRDD:OOdbc:end()
quit

Endif


El problema que tengo que cuando la conexion nno esta disponible o se tarda mucho el programa no captura el error y manda un error de odbc y el programa se cierra de manera abrupta.

Como puedo capturar el error para que no ocurra esto ?

Gracias
Rene