Private Sub Grid1_ErrorAddNew(ByVal nError As Long, _
  ByVal sDescription As String)
 
  ' Es ist ein Fehler beim Speichern aufgetreten
  MsgBox "Fehler beim Hinzufügen der neuen Datenzeile" & vbCrLf & _
    CStr(nError) & " " & sDescription, vbCritical, "Fehler!"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de