Como hacer una consulta SQL que devuelva datos en particular

[samyy_g]

Hola, tengo una duda estoy trabajando con vb.net 2005 y una base en access, quiero hacer una consulta, tengo un form con un datetimepicker para seleccionar la fecha, un button para ejecutar la consulta y un listview para mostrar los datos de la sentencia, pero se ve que estoy planteando mal la sentencia ya que me devuelve todo lo ingresado en la tabla no la fecha que seleccione en DTP. Son mis primeros pasos en visual asi que agradeceria quien pudiera guiarme!!!, dejo el cod para que me indiquen lo que hago mal, GRACIAS!!!!

Private Sub BtBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtBuscar.Click

con.Open()

Dim Listar As New OleDbCommand
Listar.Connection = con
Listar.CommandType = CommandType.Text
Listar.CommandText = "Select * FROM Ingresos WHERE [Fecha] = @fecha"
Listar.Parameters.AddWithValue("@fecha", DtpFecha.Text)



Dim Lector As OleDbDataReader
Lector = Listar.ExecuteReader
Do While Lector.Read
Dim MITem As ListViewItem
MITem = LstMovimientos.Items.Add(Lector("CodCuenta"))
MITem.SubItems.Add(Lector("Codsocio"))
MITem.SubItems.Add(Lector("Apellido"))
MITem.SubItems.Add(Lector("Importe"))
Loop
Lector.Close()
con.Close()
End Sub