Visual Basic - consulta Select de Fecha

Holas a todos los lectores y programadores desearia que me pueda n sacer de una duda q tengo he realizado una consulta de un select de fecha pero no siempre me sale la respuesta correcta no se porq..? desearia q me digan cual es mi error...gracias de antemano...

Dim fec As Date
fec = dt1.Value
rscon.Open "Select * From prueba Where fecha < # " & fec & "#", cn

Set tabla.DataSource = rscon

prueba con

fec = Format(dt1.Value, "mm/dd/yyyy")

sigue igual respondon...cuando hago una consulta no me da el resultado q quiero..ayudenme,,,

si salio gracias ya respiro en paz