Filtre multi-critère sur champ monétaire

Bonjour à tous,

Débutant en VBA j'ai développé une petite apli bien sympatique.
J'ai appliqué un modèle copié sur un site de filtre multi-critère dans un formulaire.
Un modèle que l'on voit un peu partout rédigé par un certain Caféine ...

Touts mes filtres dans le code ci-dessous fonctionne sauf un: un champ de type monétaire. J'ai un message "type de donnée incompatible".
Merci de votre aide pour résoudre mon ignorance...

Private Sub Rlibellé_AfterUpdate()
f = ""
'Déclaration du filtre sur Libellé
If Not IsNull(Me.RLibellé) And Me.RLibellé <> "" Then
f = "Libellé LIKE ""*" & Me.RLibellé & "*"""
End If
'Déclaration du filtre sur Tiers
If Not IsNull(Me.RTiers) And Me.RTiers <> "" Then
If f <> "" Then
f = f & " AND Tiers = """ & Me.RTiers & """"
Else
f = "Tiers LIKE ""*" & Me.RTiers & "*"""
End If
End If
<bold>'Déclaration du filtre sur Prix
If Not IsNull(Me.Rprix) And Me.Rprix <> "" Then
If f <> "" Then
f = f & " AND Prix= """ & Me.Rprix & """"
Else
f = "Prix LIKE ""*" & Me.Rprix & "*"""
End If
End If </bold>
'Déclaration du filtre sur Date d'opération
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f = f & " AND clng([Date d'opération]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
Else
f = "clng([Date d'opération]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
End If
End If
'Fin des déclarations sur champs
Me.Filter = f
Me.FilterOn = True
End Sub