On Error GoTo

[emiliomx]

Así me quedo.
hay otra mejor forma?

Private Sub Command1_Click()
On Error GoTo fallo:
.......rutina1 de conexión...............
Exit Sub

fallo:
Command2_Click

End Sub


Private Sub Command2_Click()
On Error Resume Next
On Error GoTo fallo:
.......rutina2 de conexión...............
Exit Sub

fallo:
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description &"
End Sub


Gracias

Adios..