Visual Basic - Cómo hacer busquedas por fecha

Como puedo hacer busquedas por fecha. Estoy trabajando con código. Necesito hacer busquedas por fecha y que me muestre los resultados en un listbox. Gracias de antemano.

On Error Resume Next

Dim Resultado As Variant

Resultado = "SELECT Fecha, Albaran, Horas_Nor, Horas_Ext, Horas_Noc, " _
& "Horas_Fes, Dietas, " _
& "Comida, Cena, Hospedaje, Otros, Coche_Dia, Coche_Km " _
& "FROM Partes WHERE Fecha BETWEEN # " & Text1.Text & "# And #" & Text2.Text & "# "

'o puedes utilizar esta tambien
'Resultado = ("SELECT * FROM Partes WHERE Fecha >= # " & Text1.Text & "# And Fecha <= # " & Text2.Text & "# ")

Datos2.RecordSource = Resultado
Datos2.Refresh

utliza un MSHFlexgrid o un DBGRID para visualizar los resultados

espero que te sirva de ayuda

Un saludo.