URGENTE Conexion a servidores SQL

[Lucho3004Grados]

hola a todos.
tengo un problema.
espero me puedan ayudar.
Tengo un sistema el cual contiene una tabla de locales, donde almaceno el nombre de servidor y nombre de base de datos
de varias sedes.
para sacar un reporte donde me muestre por decir el total de ventas de cada local,
he diseñado una funcion que me validad la conexion con cada local dentro un for
ejemplo:
for ....
Estado = validaConexion(servidor, bd)

Next
dentro del valida conexion va
con.Provider = "SQLOLEDB"
con.CursorLocation = adUseClient
con.ConnectionString = "User ID=" & sUserName & _
";password=" & sUserPassword & _
";Data Source=" & servidor & _
";Initial Catalog=" & bd
con.CommandTimeout = 1
con.Open
el problema va que si un servidor esta desconectado o apgado, se demora por uno 30 segundos en mostrarme el error
tengo 20 locales, no se nota la demora si es uno el desconectado pero cuando tengo 5 locales desconectados
es mas de un minuto, y si son 15 imaginense.
Hay alguna manera de agilizar el tema, he probado reduciendo el commandtimeout y el connectionstringtimeout pero nada
espero me puedan ayudar.