Gestion de errores mysql

[KenMasters]

Buenas, tengo una consulta con respecto a una conexión MySQL, funciona adjunto codigo

Código vb:

Dim cn as Connection 
Dim rs As Recordset
 
Set cn = New Connection
cn.ConnectionString = "cadena de conexión MySQL"
cn.CursorLocation = adUseClient
cn.Open
 

Mi duda es la siguiente, como puedo gestionar los errores, por ejemplo, si es que el servidor no existe o la tabla no existe, me informe con un msgbox detallando el problema. Gracias

[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