Como hacer una consulta SQL que devuelva datos en particular

[samyy_g]

emmax, muchisimas gracias por tu pronta respuesta y tu explicacion, puse el codigo que me enviaste pero al correr la aplicacion me tira un nuevo error, mi problemas es que no tengo mucha experiencia con visual, este es mi primer proyecto, te agradeceria pudieras guiarme en donde me estoy equivocando, el error dice "No se encontro OleDBexception, No se han especificado valores para algunos de los parámetros requeridos." GRACIAS!!!

Option Explicit On
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Text
Public Class FrmCajadiaria
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim Maximo As Integer
Dim i As Integer

Private Sub FrmCajadiaria_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0; "
dbSource = "Data Source = D:\Bdsplash.mdb"

con.ConnectionString = dbProvider & dbSource
End Sub

Private Sub BtLimpiar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtLimpiar.Click
LstMovimientos.Items.Clear()

End Sub

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.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
End Class