Private Sub Delete_AlteDatensaetze()
        Dim del_date As DateTime = Today.AddDays(-100) 'kritisches Datum
 
        Dim Abfrage = From Eintrag In BS_Eingang_Liste
                      Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                            Eintrag.Lieferdatum < del_date _
        Select Eintrag
 
 
        Dim anzahlDatensaetze As Integer = Abfrage.Count
 
        If Abfrage.Count = 0 Then Exit Sub
 
        Dim Abfrage_Result As DialogResult = MessageBox.Show(anzahlDatensaetze _
          & " wirklich endgültig entfernen?", "Sicherheits-Abfrage", _
          MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
          MessageBoxDefaultButton.Button2)
        If Abfrage_Result = System.Windows.Forms.DialogResult.No Then Return
 
        Me.Cursor = Cursors.WaitCursor
 
        For Each Eintrag In Abfrage : Eintrag.Delete() : Next
 
        Me.Validate()
        BS_Eingang.EndEdit()
 
        dict_BS_Pos.Clear()
        dict_BS_Pos.Add(BS_Eingang, BS_Eingang.Position)
        mod_Saver.SaveDataset(Me.LagerDB, dict_BS_Pos, _
          EingangTableAdapter.Adapter) 'Reihenfolge! - Parent-Adapter zuerst
 
        modus_Eingang = DatensatzModus.Fertig
        TP_gesperrt = False
        dgv_Eingang_Einkauf_SelectRow()
        Me.Cursor = Cursors.Default
    End Sub