Dim datum As DateTime = was immer
        Dim strDatum1 As String = datum.ToString("MM/dd/yyyy")
        Dim strDatum2 As String = datum.AddDays(1).ToString("MM/dd/yyyy")
 
        Dim filterValue As String = "OrderDate >= " & "#" & strDatum1 & "#" & _
          "AND OrderDate < #" & strDatum2 & "#"
        BindingSource1.Filter = filterValue

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov