Ajouter écart date dans expression SQL (AjouteràWhere )

Bonsoir, le code qui suit fonctionne à merveille mais j'ai un gros
problème
J'aimerai ajouter une clause AjouteràWhere qui prendrait les champs
DATEDEBUT et DATEFIN de mon formulaire et qui irait comparer au champ
DATE_RETOUR de ma requête

Mais autant ajouter un champs comme plus bas ne me pose aucun problème
que là je n'ai sait comment faire mon AjouteràWhere



Dim MonSQL1 As String, MonCritère1 As String, MonJeuEnreg1 As
String
Dim NbrArg1 As Integer
Dim tmp1 As Variant

' Initialise le compteur d'argument.
NbrArg1 = 0

' Initialise l'instruction SELECT.
MonSQL1 = "SELECT * FROM [Req_Rech1] WHERE "
MonCritère1 = ""
' Utilise les valeurs entrées dans les zones de texte de l'en-
tête de formulaire
' pour créer les critères de la clause WHERE.
AjouteràWhere [RA], "[RA]", MonCritère1, NbrArg1
AjouteràWhere [provenance], "[provenance]", MonCritère1, NbrArg1
'**********************
C'est là que je ne sais pas comment mettre mon AjouteràWhere

etc 'AjouteràWhere le champs de la requete [DATE_RETOUR] à comparer
avec [Forms]![fm_recherche]![DATEDEBUT] And [Forms]![fm_recherche]!
[DATEFIN

'*********************
MonCritère1, NbrArg1
' vous pouvez ajouter d'autres conditions avec le m^me type de
ligne ci-dessus

' Si aucun critère n'est spécifié, renvoie tous les
enregistrements.
If MonCritère1 = "" Then
MonCritère1 = "True"
End If

' Crée l'instruction SELECT.
MonJeuEnreg1 = MonSQL1 & MonCritère1

' Défini la propriété RecordSource du Sous-Formulaire Recherche
Multi SF
Me![fm_rechercheSF1].Form.RecordSource = MonJeuEnreg1

' Si aucun enregistrement ne correspond aux critères, affiche un
message.
' Active le bouton Effacer.
If Me![fm_rechercheSF1].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Aucun enregistrement ne correspond aux critères
introduits.", 48, "Aucun enregistrements trouvés"
Me!effacer1.SetFocus
Else
' Active le contrôle dans la section détail.
tmp1 = ActiveContrôles("Detail", True)
' Place le point d'insertion dans le Sous-Formulaire
F_Recherche Multi SF
Me![fm_rechercheSF1].SetFocus
End If

Merci beaucoup