Visual Basic.NET - porque no se buscan los datos tipo fecha de una base de datos de access

If Buscadorfecha.ToString("dd/MM/yyyy") <> "" Then

Dim FechaAEncontrar As String = Buscadorfecha.ToString("yyyy/MM/dd")   ' Es mejor tener la fecha en esto formato

consultar = "SELECT * FROM Ventas WHERE FORMAT(Fecha, 'yyyy/MM/dd') = " & "'" & FechaAEncontrar & "'"

‘ … … …

Dim FechaAEncontrar As String = Buscadorfecha.ToString("yyyy/MM/dd")

Dim FechaAEncontrar As String = CType(Buscadorfecha.Text, Date).ToString("yyyy/MM/dd")

Private Sub Buscadorfecha_ValueChanged(sender As Object, e As EventArgs) Handles Buscadorfecha.ValueChanged

        conexionv.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=basedatos.mdb;Persist Security Info =False"

        conexionv.Open()

        If Buscadorfecha.Value.ToString("dd/MM/yyyy") <> "" Then

            Dim FechaAEncontrar As String = Buscadorfecha.Value.ToString("dd/MM/yyyy")

            'Dim FechaAEncontrar As String = Buscadorfecha.ToString("yyyy/MM/dd")   ' Es mejor tener la fecha en esto formato

            consultar = "SELECT * FROM Ventas WHERE FORMAT(Fecha, 'dd/MM/yyyy') = " & "'" & FechaAEncontrar & "'"

            adaptador = New OleDbDataAdapter(consultar, conexionv)

            registros = New DataSet

            adaptador.Fill(registros, "Ventas")

            lista = registros.Tables("Ventas").Rows.Count

            If lista <> 0 Then

                DataGridView1.DataSource = registros

                DataGridView1.DataMember = "Ventas"

            Else

                MsgBox("No", vbCritical, "Atencion")

            End If

        End If

    End Sub

Private Sub Buscadorfecha_ValueChanged(sender As Object, e As EventArgs) Handles Buscadorfecha.ValueChanged

        conexionv.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=basedatos.mdb;Persist Security Info =False"

        Dim FechaAEncontrar As String = Buscadorfecha.Value.ToString("yyyy/MM/dd")

        consultar = "SELECT * FROM Ventas WHERE FORMAT(Fecha, 'yyyy/MM/dd') = " & "'" & FechaAEncontrar & "'"

        Try                              '   Probablamente nunca error si ConnectionString bien escrita

            registros = New DataTable

            adaptador = New OleDbDataAdapter(consultar, conexionv)

            adaptador.Fill(registros)

            ' registros.TableName = "Ventas"    Probablamente no necesario aqui.

            ' No necesario de calcular la cuantidad de registros, si 0 ahora el DataGridview sera vacia.

            ' Pero es necesario de vaciar el DGV, si no, puede se llenar con los tratamentos succesivos o dar error.

            DataGridView1.DataBindings.Clear()

            DataGridView1.DataSource = registros

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        adaptador.Dispose

    End Sub

Private Sub Buscadorfecha_ValueChanged(sender As Object, e As EventArgs)

        If Buscadorfecha.Value.Date.ToString("dd/MM/yyyy") <> "" Then

            Dim FechaAEncontrar As String = Buscadorfecha.Value.Date.ToString("dd/MM/yyyy")

            consultar = "SELECT * FROM Ventas WHERE FORMAT(Fecha, 'dd/MM/yyyy') = " & "'" & FechaAEncontrar & "'"

        End If

    End Sub

Private Sub Buscadorfecha_ValueChanged(sender As Object, e As EventArgs) Handles Buscadorfecha.ValueChanged

        Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=basedatos.mdb;Persist Security Info =False"

        Dim FechaAEncontrar As Date = CDate(Buscadorfecha.Value)

        Using DB As New OleDb.OleDbConnection(strConnString)

            Try

                If DB.State = ConnectionState.Closed Then DB.Open()

                Dim cmd As New Data.OleDb.OleDbCommand()

                cmd.Connection = DB

                cmd.CommandText = "SELECT * FROM Ventas WHERE Fecha=@FechaAEncontrar"

                cmd.Parameters.AddWithValue("@FechaAEncontrar", FechaAEncontrar.ToOADate)

                Dim da As New Data.OleDb.OleDbDataAdapter()

                da.SelectCommand = cmd

                registros = New DataTable

                da.Fill(registros)

                da.Dispose()

                ' registros.TableName = "Ventas"    Probablamente no necesario aqui.

                ' No necesario de calcular la cuantidad de registros, si 0 ahora el DataGridview sera vacia.

                ' Pero es necesario de vaciar el DGV, si no, puede se llenar con los tamentos succesivos o dar error.

                DataGridView1.DataBindings.Clear()

                DataGridView1.DataSource = registros

            Catch ex As Exception

                Throw ex

            Finally

                DB.Close()

            End Try

        End Using

    End Sub