If rsData.EOF = True And rsData.BOF = True Then
    MsgBox "Kein Eintrag vorhanden"
    Exit Sub
Else
    If MsgBox("Wollen Sie den Artikel wirklich stornieren?", vbYesNo) = vbYes _
      Then      'Sicherheitsabfrage, ob Artikel wirklich storniert werden soll
        rsStornoSum = rsData.Fields("Preis").Value                              _
                'Auslesen des aktuellen Wertes und Zuweisen an Variable
       ...        
rsData.Delete                                                                   _
  'Aktuellen Datensatz löschen
        rsData.MoveFirst
        rsData.UpdateBatch adAffectCurrent
    End If

Do While Not rsData.EOF                                 'Schleife zum Einfügen 
' aller Datensätze bis erreichen EOF
        rsUmsätze.AddNew                                    'Datensatz in 
        ' Datenbank einfügen
            rsUmsätze!Verk_ID = lbl_VerkID.Caption
            rsUmsätze!Artikel_ID = rsData.Fields("ArtikelNr").Value
            rsUmsätze!SubArtikel_ID = rsData.Fields("LieferNr").Value
            rsUmsätze!SubVerk_Preis = rsData.Fields("Preis").Value
            rsUmsätze!BuchungArt = rsData.Fields("BuchArt").Value
        rsUmsätze.Update
        rsData.MoveNext
    Loop