Visual Basic.NET - RANGO DE FECHAS EN VISUAL BASIC

Dim consulta As String

Dim ejecutar As New OleDb.OleDbCommand

Dim leer As OleDb.OleDbDataReader

consulta = "SELECT * FROM INGRESO WHERE FECHA >=#" & DateTimePicker1.Value & "# AND FECHA <= #" & DateTimePicker2.Value & "#"

ejecutar.CommandType = CommandType.Text

ejecutar.Connection = conectar

ejecutar.CommandText = consulta

leer = ejecutar.ExecuteReader

While leer.Read

    DataGridView1.Rows.Add(leer(0), leer(1), leer(2), leer(3), leer(4), leer(5), leer(6))

End While

Dim consulta As String

Dim ejecutar As New OleDb.OleDbCommand

Dim leer As OleDb.OleDbDataReader

consulta = "SELECT * FROM INGRESO WHERE FECHA BETWEEN Format(#" & DateTimePicker1.Value & "#,MM/dd/yyyy) AND Format(#" & DateTimePicker2.Value & "#,MM/dd/yyyy)"

ejecutar.CommandType = CommandType.Text

ejecutar.Connection = conectar

ejecutar.CommandText = consulta

leer = ejecutar.ExecuteReader

While leer.Read

    DataGridView1.Rows.Add(leer(0), leer(1), leer(2), leer(3), leer(4), leer(5), leer(6))

End While

Private Sub Verify_Ventas()

    Dim sqlMov As String

    sqlMov = "SELECT * FROM VENTAS WHERE FECHA BETWEEN #" & Format(DTPicker1.Value, "yyyy-MM-dd") & "# AND #" & Format(DTPicker2.Value, "yyyy-MM-dd") & "#"

    Try

        Using cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dSn)

            cnx.Open()

            Dim cmd As New OleDbCommand(sqlMov, cnx)

            cmd.CommandType = CommandType.Text

            Dim rstMOVACU As OleDbDataReader = cmd.ExecuteReader()

            If rstMOVACU.Read = True Then

                btSwitch = 1

            End If

        End Using

    Catch ex As Exception

        MessageBox.Show(ex.Message)  'Si se produce un error lo mostramos

    End Try

End Sub

Dim FechaPrimera As String = DateTimePicker1.Value.ToString("dd/MM/yyyy")

 Dim FechaUltima As String  = DateTimePicker2.Value.ToString("dd/MM/yyyy")

sqlMov = "SELECT * FROM VENTAS WHERE FORMAT(FECHA, 'dd/MM/yyyy')  BETWEEN '" & FechaPrimera & "' AND '" & FechaUltima & "'"