Afficher enregistrement entre deux date vb6

Bonjour,

j'aimerais afficher les enregistrements d'hier entre 6:00am et 2:00pm sous vb6
voila mon code:

Dim fda As Date
Dim fdb As Date
Dim req As String
fda = Date - 1 + #6:00:00 AM#
fdb = Date - 1 + #2:00:00 PM#

req = "SELECT * FROM Variable WHERE Tdate BETWEEN #" & fda & "# AND #" & fdb & "#"

Set rs = db.OpenRecordset(req)
if(rs.eof)then
msgbox "aucun enregistrement"
else
traitement......
endif
Le probleme est que sa m'affiche aucun enregistrement alors qu'il ya une centaine
Merci de m'aider a resoudre mon probleme