Visual Basic - averigüar si existe un equipo

Hola a tod@s.
Estoy trabajando con Visual Basic 6.0 contra SQL server.
Cuando abro la conexión con SQL server pongo
cn.ConnectionString = " Provider=SQLOLEDB.1;" & _
"TRUSTED_CONNECTION=YES;" & _
"Initial Catalog=" & NombreBD & ";" & _
"Data Source=" & Servidor & ""

el problema viene cuando el servidor o la base de datos no existe ya que se me cuelga el programa sin dar ningún mensaje de error.

¿Como puedo saber de antemano si un servidor existe y si dentro de él existe una Base de datos determinada?

Gracias

Pues podrias poner un controlador de errores.

On error goto etiqueta
'
' your code here
'
etiqueta:
if err then
msgbox err.description
end if

De esa forma cuando se cuelgue lanzara un msj.

Si, el problema es que si se cuelga, no va al error. El programa se cuelga.