problema con datagridview bindingsource y datatable con un filtro

[chaka106]

bueno el titulo lo dice todo tengo un datagridview que se llena con dias que se guardan en una bd pero este datagrid se llena directamente de un bindingsource y el binding source se llena de un datatable el problema es que necesito buscar un dato en el Binding soruce por lo que estoy usando un filter en el bindingsorce, el proble esta en que a la hora de que quiero presentar los datos que quiero despues de realizar el filtro el datagrid no me muestra absolutamente nada solamente la columna que agregue pero esto manualmente alguien tiene alguna idea de que es lo ke pasa? les dejo mi codigo haber si lo entienden

Código:

Private Sub frmDiasHabiles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("Dias")
        BS.DataSource = dt
        'Me.DGVSabadoDomingo.DataSource = BS
    End Sub

'Private Function checar(ByVal fecha As Date) As Boolean
    ' Dim bsF As New BindingSource
    ' Dim dtF As New DataTable
    '     dtF = dt
    '     bsF = BS
    '     bsF.DataSource = dtF
    '     bsF.Filter = "Dias LIKE '" & fecha & "'"
    '     Me.DataGridView1.DataSource = bsF
    '     If Me.DataGridView1.Rows.Count = 0 Then
    '         Return True
    '     Else
    '         Return False
    '     End If
    ' End Function
    Private Sub chkSabados_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSabados.CheckedChanged
        For i = 1 To DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month) + 1, 0).Day
            diaBuscar = DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month), i)
            If diaBuscar.ToString("ddd") = "sáb" Then
                ' If checar(diaBuscar) = True Then
                dt.Rows.Add()
                dt.Rows(dt.Rows.Count - 1).Item(0) = diaBuscar.ToString
                BS.DataSource = dt
                Me.DGVSabadoDomingo.DataSource = BS.DataSource
                'End If
            End If
        Next
        cur = Me.MonthCalendar1.SelectionEnd.Month
        'BS.DataSource = dt
        Me.DGVSabadoDomingo.DataSource = BS
    End Sub

    Private Sub chkDomingos_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDomingos.CheckedChanged
        For i = 1 To DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month) + 1, 0).Day
            diaBuscar = DateSerial(Year(Now), CInt(Me.MonthCalendar1.SelectionEnd.Month), i)
            If diaBuscar.ToString("ddd") = "dom" Then
                'If checar(diaBuscar) = True Then
                dt.Rows.Add()
                dt.Rows(dt.Rows.Count - 1).Item(0) = diaBuscar
                BS.DataSource = dt
                'End If
            End If
        Next
        cur = Me.MonthCalendar1.SelectionEnd.Month
        Me.DGVSabadoDomingo.DataSource = BS
    End Sub

    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        Me.DGVSabadoDomingo.Rows.Add()
        Me.DGVSabadoDomingo(0, Me.DGVSabadoDomingo.Rows.Count - 1).Value = Me.MonthCalendar1.SelectionEnd
        If cur <> Me.MonthCalendar1.SelectionEnd.Month Then
            Me.chkDomingos.Checked = False
            Me.chkSabados.Checked = False
        End If
    End Sub

al momento que uso la funcion checar la cual deje comentada ya que no me sirve ahora el datagrid deja de mostrar datos ayudaAAAAAAAA