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")
 
' Hier weist Du ihm ja den Aktuellen recordset in das Textfeld zu
' Somit ist das Textfeld gleich mit dem aktuellen Recordset! - Also löscht 
' er!!!!
 
        adoDouble.Recordset.MoveNext
        If Err.Number >= 2 Then
            MsgBox "haha"
        Else
            Exit Sub
        End If
Loop
 
MsgBox "Ende"
adoDouble.Recordset.MoveFirst

adoDouble.open "Delete from DATENBANK Where SatzNr='" & SatzNr.Text & "'", _
  Connection , adOpenDynamic, adLockOptimistic