Visual Basic - Tiempo de espera

Hola.
Tengo el siguiente código:
...
SET CON = NEW ADODB.COMMAND
CON.CONNECTIONSTRING = "...."
CON.CURSORLOCATION = ADUSECLIENT
CON.COMMANDTIMEOUT = 30
ON ERROR GOTO ERRORAPERTURACONEXION
CON.OPEN
.....
Hago una simulación de ausencia de red y ejecuto el código pero lo que ocurre es que pasa absolutamente de la propiedad CommandTimeout y a veces en devolver el error me tarda dos minutos, otras veces uno, ...
¿Qué puedo hacer para que tenga en cuenta el tiempo de espera?
Gracias.

A mi me ha ocurrido tambien, lo que ocurre es que commandtimeout es el tiempo minimo de espera, por lo que te aseguras que no te falle la consulta o la conexion por sobrepasar el tiempo de espera maximo que tu estimes, lo que ocurra despues solo lo sabe SQLserver.
Creo que esto no que pides no se puede tener en cuenta de esa forma.