On Error GoTo

[emiliomx]

Hola

Quisiera saber la forma de controlar dos errores de esta forma
para una conexion

Private Sub cmdConectar_Click()
On Error GoTo error1

.......rutina1 de conexión...............
conectado = True
Exit Sub

error1:
MsgBox "¡No se pudo conectar!", vbExclamation, "Info"
Exit Sub

End Sub


Entoncen intentar una segunda rutina de conexion en error1
si no se puede entonces definitivamente poner un mensaje de
que no se pudo.


Espero su respuesta..