[Resolvido] Filtro de Data em BindingSource (Between)

[samesdavis]

Estou com essa função e está dando erro na parte do Between

Public bs As BindingSource

Sub FiltraGrid()

bs.Filter = "NM_ALUNO like '%" & Me.txtPesqNome.Text & "%' AND DT_FREQ Between #" & Format(Me.txtDTINI.Value, "yyyy/MM/dd") & "# And #" & Format(Me.txtDTFIM.Value, "yyyy/MM/dd") & "#"

lblTotalRegistros.Text = "Total de alunos: " & GridFrequencia.RowCount

End Sub

Alguém pode me ajudar?

[samesdavis]

resolvi desse jeito

Sub FiltraGrid()

bs.Filter = "DT_FREQ >= #" & Format(Me.txtDTINI.Value, "yyyy/MM/dd") & "# AND DT_FREQ <= #" & Format(Me.txtDTFIM.Value, "yyyy/MM/dd") & "# AND NM_ALUNO like '%" & Me.txtPesqNome.Text & "%'"

lblTotalRegistros.Text = "Total de alunos: " & GridFrequencia.RowCount

End Sub