Dim Abfrage = From Eintrag In BS_Eingang_Liste
                      Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                        Eintrag.IsBestelldatumNull = False AndAlso _
                            Eintrag.Bestelldatum >= "#" & Format(Now, _
                            "yyyy.MM.dd") & "#" AndAlso _ 
        Select Eintrag
 
 
        If Abfrage.Count = 0 Then Exit Sub
 
        For Each Eintrag In Abfrage : Eintrag.Delete() : Next

 Dim von_Datum = Today.AddDays(-5)
 
        Dim Abfrage = From Eintrag In BS_Eingang_Liste
                      Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                        Eintrag.IsBestelldatumNull = False AndAlso _
                            Eintrag.Bestelldatum < von_Datum _
        Select Eintrag

'Löschen der Datensätze aus "dt", 
'wenn der Eintrag in Datetime-Spalte "Columnname" 
'mehr als "Days" Tage zurückliegt
 
    Private Sub DeleteOldRows(ByVal Dt As DataTable, _
        ByVal Columnname As String, ByVal Days As Integer)
 
        For i As Integer = Dt.Rows.Count - 1 To 0 Step -1
            If Not IsDBNull(Dt.Rows(i)(Columnname)) Then
                If CDate(Dt.Rows(i)(Columnname)) < Today.AddDays(-Days) Then
                    Dt.Rows(i).Delete()
                End If
            End If
        Next i
    End Sub

Private Function GetExpressionDate(ByVal dat As DateTime) As String
 
        'System.Globalization.DateTimeFormatInfo.InvariantInfo
 
        With dat
            Return "#" & .Month.ToString & _
                "/" & .Day.ToString & _
                "/" & .Year.ToString & "#"
        End With
End Function

Dim del_date As DateTime = Today.AddDays(-90) 'kritisches Datum
bs.Filter = "Bestelldatum < " & GetExpressionDate(del_date) 'Filter

  Dim del_date As DateTime = Today.AddDays(-90) 'kritisches Datum
                BS_Eingang.Filter = "geliefert = True And Bestelldatum < " & _
                  GetExpressionDate(del_date)  'Filter

 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

Dim del_date As DateTime = Today.AddDays(-90)
bs.Filter = "Bestelldatum < " & GetExpressionDate(del_date)
 
If Not MsgBox("Sollen diese " & bs.count.tostring & " Sätze gelöscht werden?", _
            MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Exit Sub
 
For i As Integer = bs.Count - 1 To 0 Step -1
   'In typisierten Bindingsourcen kann das Casten entfallen
   DirectCast(bs(i), DataRowView).Delete()
Next i
 
bs.filter = ""
 
'DB-Update ausführen

  'DB-Update ausführen
 
        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

 Private Sub upd_Progress_Daten_loeschen(ByVal Meldung As String, ByVal cnt As _
   Integer)
        pgb_delete.Value += cnt
        lbl_Value.Text = Meldung
        lbl_Value.Refresh()
        System.Threading.Thread.Sleep(15)
    End Sub

........
        pgb_delete.Maximum = CInt(BS_Eingang.Count)
        pgb_delete.Minimum = 0
        pgb_delete.Value = 0
 
        System.Threading.Thread.Sleep(2000)
 
        For i As Integer = BS_Eingang.Count - 1 To 0 Step -1
            'In typisierten Bindingsourcen kann das Casten entfallen
            DirectCast(BS_Eingang(i), DataRowView).Delete()
 
            upd_Progress_Daten_loeschen("Daten werden gelöscht", 1)
        Next i