Visual Basic - catch

como puedo cachar errores ke me manda el manejador de bd en visual basic???
si alguien puede mandar un ejemplo, porfa

Pon esto cuando hagas una consulta, actualización, etc.
Public Function Abrir() As Boolean
On Error GoTo Errores
''''''''''''''Tu codigo
''''''''''''''
Errores:
If Err.Number <> 0 Then
MsgBox CStr(Err.Description), vbCritical, Cstr(Err.Number)
Err.Clear
End If
End Function