Private Sub Kalender_ValueChanged(sender As Object, value As Date) Handles _
    Kalender.ValueChanged
 
        lbl_datum.Text = Kalender.AktDatum.ToShortDateString
 
        Dim filterGesamt As String = String.Empty
        Dim filterA As String = String.Empty
        Dim sel_Datum_von As Date = Kalender.AktDatum
        Dim sel_Datum_bis As Date = Kalender.AktDatum
        Dim _Beginn, _Ende As Date
 
        _Beginn = New Date(sel_Datum_von.Year, sel_Datum_von.Month, _
          sel_Datum_von.Day, 0, 0, 0)
        _Ende = New Date(sel_Datum_von.Year, sel_Datum_von.Month, _
        sel_Datum_von.Day, 23, 59, 59)
        filterA = String.Format("[{0}] >= '{1}' AND [{0}] <= '{2}'", _
        "Datum", _Beginn, _Ende)
        filterGesamt = String.Concat(filterA)
        Me.SteuernBindingSource.Filter = filterGesamt
    End Sub