Visual Basic - Ayuda, Monitorear conexión a SQL

Hola Amigos!

Reciban un cordial Saludo..

Tengo el siguiente probleme y espero me puedan ayudar.

tengo una Aplicación en VB 6 y conectado a SQLServer 2000. todo funciona a la perfección hasta que en ocaciones se cae la cominicación con la Base de datos. 5 equipos (PC) se conectan a esa BD. Cuando sucede que ya no hay comunicación puedo detectarlo interceptando el error al querer hacer alguna operación, pero esto causa que cuando se levanta y se supone debería reconectarse automáticamente, no puede establecer la conexión de la BD, obligando a todos a cerrar y volver inciar la Aplicación (cosa que no les agrada a los usuarios 'Que raro verda'').

Mi forma de operar mi conexión y RS es:

1.- Creo Conexion.
2.- Creo RS según bloqueos y cursores.
3.- hago mis operaciones
4.- cierro y Destruyo RS y Conexion.

Preo como puedo saber cuando no hay comunicación con la BD y evitar hacer los pasos anteriores. y mejor hacerlo cuando la comunicación este bien.

Espero su pronta ayuda.