Do Until adoDouble.Recordset.EOF = True
  On Error Resume Next
     If adoDouble.Recordset.Fields("SatzNr") = SatzNr.Text Then
 
        adoDouble.Recordset.Delete
    Else
 
    End If
     SatzNr.Text = adoDouble.Recordset.Fields("SatzNr")
        adoDouble.Recordset.MoveNext
        If Err.Number >= 2 Then
            MsgBox "haha"
        Else
            Exit Sub
        End If
Loop
 
MsgBox "Ende"
adoDouble.Recordset.MoveFirst