Pasar del error en Vb 6

[pabli]

Hola,

hay muchos errores por los que puede saltar un timeout, por ejemplo que la red esté saturada. "On error resume next" está muy bien pero no sigue intentándolo. Prueba:

Sub abrir_tabla()

On Error Goto control_errores

--línea que abre la tabla
--resto de código


Exit Sub
control_errores:

if err.number= (nº de error de timeout) then
resume 'vuelve a ejecutar la misma instrucción que originó el error
'aquí puedes tener un contador para salir si lo ha intentado un nº de veces
else
'lo que quieras(salir, mensaje, etc)
end if
End Sub

Saludos
Pablo