Como hacer una consulta SQL que devuelva datos en particular

[samyy_g]

emmax, como estas? Gracias por tu ayuda, te comento hice los cambios que me sugeriste pero cuando cooro la aplicacion y quiero seleccionar una fecha sale el siguiente error "Error de sintaxis en la fecha en la expresión de consulta 'Fecha = #@fecha#'."
te dejo el codigo, te agradeceria si lo pudieras ver porque se ve que sigo haciendo algo mal. Gracias por tu ayuda

Private Sub DtpFecha_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DtpFecha.ValueChanged
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", Me.DtpFecha.Value.Date)



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