Algún código fácil para detectar desconexión a sqlserver, estoy programando en visual studio

En Visual Basic existe la posibilidad de controlar por programas los errores. Esto es, en lugar de que VB detecte el error y termine nuestro programa, podemos hacer ese trabajo nosotros.
La forma es sencilla: usamos la instrucción "ON ERROR..."
Supongamos que quieres conectar con una base de datos vía ODBC usando ADOBD. Lo normal sería poner una instrucción como esta:
MiConexion. Open "Nombre ODBC","usuario","clave"
Pero si esa instrucción da un error, VB informará del error y se cerrará.
Para evitarlo podemos poner:
Do
On Error Resume Next
miConexion.open "Nombre ODBC","usuario","clave"
if err=0 then exit do
resp=msgbox("Se ha encontrado el siguiente error al abrir la B.D.:" & error$ & vbcrlf & vbcrlf & "¿Deseas reintentarlo?",vbyesno)
if resp=vbno then
On Error Goto 0
End
end if
On Error Goto 0
loop
On Error Goto 0
Como verás, con "On error resume next" desactivamos el control de errores de VB para controlarlos nosotros.
Es importantísimo volver a activar dicho control de errores al terminar de hacer nuestro control. El motivo: si se nos olvida no sabremos cuándo está fallando nuestro programa.
Además, si no devolvemos el control de errores al VB cuando consultemos la variable "err" que tiene el número del último error no sabremos si es de la anterior instrucción o de 100 líneas antes.