Gestion de errores mysql

[KenMasters]

Encontré una solución:

Código vb:

Private Sub Form_Load()
On Error GoTo Gestionaerror
Show
Dim i As Integer
i = Rnd * 10 ^ 6    '[Esta línea genera el error]
Print "La ejecución continúa aquí debido al Resume Next"
Print i    '[Devuelve cero ya que fue imposible asignarle valor tipo integer]
Gestionaerror:
If Err.Number <> 0 Then
    GestiónError
    Resume Next
End If
End Sub
 
Private Sub GestiónError()
MsgBox("Se ha producido un error. Tipo de error = " & Err.Number & ". Descripción: " & Err.Description)
End Sub
 

Referencia: http://www.aprenderaprogramar.com/in...l-iq&Itemid=61