Como hacer una consulta SQL que devuelva datos en particular

[emmax]

una disculpa error mio, prueba lo siguiente.

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




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

Comenta si te sirvio, Saludos.......