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