Visual Basic - como capturar los errores en el data grid

como hago para capturar los errores del grid, por ejemplo el mensaje "error ocurred while trying to update record "

ahi te paso los numeros de error y su descripcion , espero que te sirva para interceptar loss errores. suerte
32001 DBGrid: Cannot initialize data bindings.
32002 DBGrid: Invalid column index.
32003 DBGrid: Control not properly initialized.
32004 DBGrid: Column not found.
32005 DBGrid: Invalid row number.
32006 DBGrid: Invalid bookmark.
32007 DBGrid: Invalid selected row bookmark index.
32008 DBGrid: Scroll arguments out of range.
32009 DBGrid: Invalid setting for <propertyname> property.
32010 DBGrid: Error occurred while trying to update record.
32011 DBGrid: Error occurred while trying to add record.
32012 DBGrid: Error occurred while trying to delete record.

3. Copie o pegue el siguiente código en el formulario:
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject _
As Long) As Long

Const PROCESS_TERMINATE = &H1
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ACTIVE = &H103
Private Sub btnCerrar_Click()
Dim hProceso As Long
Dim lEstado As Long
' Obtenemos el handle al proceso
hProceso = OpenProcess(PROCESS_TERMINATE Or _
PROCESS_QUERY_INFORMATION, 0, CLng(txtIdProceso))
If hProceso <> 0 Then
' Comprobamos estado del proceso
GetExitCodeProcess hProceso, lEstado
If lEstado = STILL_ACTIVE Then
' Cerramos el proceso
If TerminateProcess(hProceso, 9) <> 0 Then
MsgBox "Proceso cerrado"
Else
MsgBox "No se pudo matar el proceso"
End If
End If
' Cerramos el handle asociado al proceso
CloseHandle hProceso
Else
MsgBox "No se pudo tener acceso al proceso"
End If
End Sub