requete avec un champs date

Bonjour,
dans un formulaire j'utilise un champs texte pour faire des recherches
dans un query. je veux utiliser le meme champs pour faire des
recherches de date ou de texte

cela fonctionne quand j'utilise du texte, mais je ne trouve pas
comment faire avec une date. mon probleme se trouve au case 9

merci de votre aide, je ne vois pas comment je peux régler ce
problème *******************
Private Sub Command50_Click()
Dim REQ1, REQ2, REQ3, REQ4, REQ5
Dim MYDATE As Date
Select Case Combo6
Case 1
REQ3 = "WHERE (((table_commande.container) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "
Case 2
REQ3 = "WHERE (((table_commande.[REFERENCE NUMBER]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 3
REQ3 = "WHERE (((table_commande.DESCRIPTION) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 4
REQ3 = "WHERE (((table_commande.[MEMO-INSTRUCTION]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 9
MYDATE = DateValue(CHERCHE_TEXTE)
REQ3 = "WHERE (((table_commande.[JOB DATE])< '*" & MYDATE & "*'))
"


End Select

REQ1 = "SELECT TABLE_COMMANDE.* "
REQ2 = "FROM table_commande "
REQ4 = "ORDER BY TABLE_COMMANDE.[DATE-COMMANDE-RECU] DESC;"
REQ5 = REQ1 + REQ2 + REQ3 + REQ4
Me.RecordSource = REQ5

End Sub

...
cela fonctionne quand j'utilise du texte, mais je ne trouve pas comment
faire avec une date. mon probleme se trouve au case 9

Case 9
MYDATE = DateValue(CHERCHE_TEXTE)
REQ3 = "WHERE (((table_commande.[JOB DATE])< '*" & MYDATE & "*')) "


End Select

REQ1 = "SELECT TABLE_COMMANDE.* "
REQ2 = "FROM table_commande "
REQ4 = "ORDER BY TABLE_COMMANDE.[DATE-COMMANDE-RECU] DESC;"
REQ5 = REQ1 + REQ2 + REQ3 + REQ4
Me.RecordSource = REQ5

End Sub