Private Sub Grid1_ErrorUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal sText As String, _
  ByVal nError As Long, ByVal sDescription As String)
 
  ' Fehler beim Aktualisiern von Daten
  MsgBox "Es ist ein Fehler beim Aktualisieren der Daten aufgetreten!" & _
    vbCrLf & vbCrLf & CStr(nError) & ": " & sDescription
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de