On Error Resume Next
Recordset.Delete
If Err <> 0 Then
  MsgBox "Fehler beim Löschen des Datensatzes!" & vbCrLf & _
    CStr(Err.Number) & " " & Err.Description
End If
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de