Запрос к базе данных Access с выборкой по дате

Dim FindData As Date=Now.Date

select * from Клиент where Дата_С >='" & FindData & "' And  Дата_По <= '" & FindData & "'

    ''' <summary>
    ''' Выборка по дате
    ''' </summary>
    ''' <param name="_finddate">Дата</param>
    ''' <remarks></remarks>
    Shared Function GetDataByDate(ByVal _finddate As DateTime) As DataTable
        Dim _Adapter As OleDbDataAdapter = New OleDbDataAdapter(String.Format("SELECT * FROM [Клиент] WHERE [Дата_С]>=#{0}# AND [Дата_ПО] <= #{0}#", _finddate.ToShortDateString), _connect)
        Dim _DataSet As DataSet = New DataSet
        _Adapter.Fill(_DataSet)
        If _DataSet.Tables(0).Rows.Count = 0 Then
            _DataSet.Tables.Add()
        End If
        Return _DataSet.Tables(0)
    End Function

Dim nw As DateTime = Now
Dim cmdText As String = "SELECT * FROM testTB WHERE fromDate<" & nw.ToOADate & " AND toDate>" & nw.ToOADate

Dim cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM testTB WHERE fromDate<@nw AND toDate>@nw", conn)
cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@nw", System.Data.OleDb.OleDbType.DBDate))
cmd.Parameters(0).Value = Now

Dim nw As DateTime = Now
Dim cmdText As String = "SELECT * FROM testTB WHERE fromDate<" & nw.ToOADate & " AND toDate>" & nw.ToOADate

Shared Function GetDataByDate(ByVal _finddate As DateTime) As DataTable
        Dim _Adapter As OleDbDataAdapter = New OleDbDataAdapter(String.Format("SELECT * FROM [Клиент] WHERE [Дата_С]>=#{0}# AND [Дата_ПО] <= #{0}#", _finddate.ToShortDateString), _connect)
        Dim _DataSet As DataSet = New DataSet
        _Adapter.Fill(_DataSet)
        If _DataSet.Tables(0).Rows.Count = 0 Then
            _DataSet.Tables.Add()
        End If
        Return _DataSet.Tables(0)
    End Function

Dim c As New OleDbCommand
                c.Connection = conn
                c.CommandText =" select * from Клиент where Дата_С >='" & FindData & "' And  Дата_По <= '" & FindData & "' "
                Dim ds As New DataSet
                Dim da As New OleDbDataAdapter(c)
                da.Fill(ds, "Клиент")
                Grid2.DataSource = ds
                Grid2.DataMember = "Клиент"
                Grid2.Columns("Код").Visible = False

Dim dv As DataView
            dv1 = New DataView(ds.Tables("Клиент"), "Дата_С >='" & FindData & "' And  Дата_По <= '" & FindData & "' ", "Столбец для сортировки", DataViewRowState.CurrentRows)
            Grid2.DataSource = dv

Dim dv As DataView
            dv1 = New DataView(ds.Tables("Клиент"), "Дата_С >='" & FindData & "' And  Дата_По <= '" & FindData & "' ", "Столбец для сортировки", DataViewRowState.CurrentRows)
            Grid2.DataSource = dv

Dim ds as DataSet

 Dim ds As DataSet
   
 Private Sub RezFindPosD()
        Try
            Dim findDate, firstDate, secondDate As Date
            Dim s As String = MaskedTextBox1.Text 'задаваемая пользователем дата для поиска
            If s = "  ,  ," Then s = ""
            If s <> "" Then
                s = Replace(s, ",", ".")
                findDate = CDate(s)
 
                Dim dv As DataView
                dv = New DataView(ds.Tables("Клиент"), "Дата_С >='" & findDate & "' And  Дата_По <= '" & findDate & "' ", "Столбец для сортировки", DataViewRowState.CurrentRows)
                Grid2.DataSource = dv
            End If
 
 
        Catch ex As Exception
            My.Computer.Clipboard.SetText(ex.Message)
            MsgBox(ex.Message)
        End Try
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    getData(Now)
End Sub
Public Sub getData(ByVal nw As DateTime)
    Using conn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & IO.Path.Combine(Application.StartupPath, "myDb.mdb") & "; Password=;")
        conn.Open()
        Dim cmdText As String = "SELECT * FROM testTB WHERE fromDate<" & nw.ToOADate & " AND toDate>" & nw.ToOADate
        Dim cmd As OleDbCommand = New OleDbCommand(cmdText, conn)
        Try
            Dim ad = New OleDb.OleDbDataAdapter(cmd)
            Dim dt = New DataTable()
            ad.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
    End Using
End Sub