Filtre entre deux dates

Bonjour,

je cherche à filtrer les données de ma table entre deux dates. j'ai construit un formulaire pour ce filtre avec deux TXT box (dtDebut et dtFin) de type Date. Ma table s'appelle Oneoff, et le champ date sur lequel je veux trier est REQUEST_DATE.

Voilà mon code
le problème est dans le OpenRecordset.

Sub filter_test()

Dim dtDebut As Date, dtFin As Date
Dim ChnSQL As String
Dim res As DAO.Recordset
Dim db As DAO.Database

Set db = CurrentDb()

dtDebut = Forms!FilterTest![Texte0].Value
dtFin = Forms!FilterTest![Texte4].Value


'Pour verifier le contenu des TXT BOX
MsgBox dtDebut
MsgBox dtFin


'1er Méthode mais marche pas
'DoCmd.OpenForm "FilterTest", acNormal, "[REQUEST_DATE] BETWEEN " & dtDebut & " AND " & dtFin

'2éme Méthode Beug
ChnSQL = "SELECT * FROM Oneof WHERE Oneoff.[REQUEST_DATE] BETWEEN #" & CDate(dtDebut) & "# AND #" & CDate(dtFin) & "#"
'DoCmd.OpenTable "Oneoff", acViewNormal = 1, acEdit = ChnSQL

'DoCmd.RunSQL ChnSQL

Set res = db.OpenRecordset(ChnSQL)

'Fermeture du Recordset
res.Close

End Sub


Merci par avance de votre aide