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.

tengo un procedimiento que tu le indicas cuantos segundos quieres esperar
por ejemplo

Espera 30 ' mandas llamar el procedimiento con el numero de segundos que quieres que tarde

agregame en tu mail, si te interesa
bye suerte

Hola,

si puedes, ¿me puedes pasar el código?.

Gracias.