VBA, utiliser la difference entre 2 dates pour colorer un texte

salut! une fois encore je viens vous demander de l'aide pour m'éclairer
je m'explique:
sous Access 2013 je veux créer et remplir une table par du texte qui change de couleur en fonction de la différence entre deux dates;
Table = t_Colortext(id,Text,date_Pret,date_Rerour), date_ret et date_Retour sont de type date au format jj/mm/aaaa
je crée un formulaire mode tabulaire; nom formulaire = f_Colortext (id,Text,date_Pret,date_Rerour)
voici mon code:
sub f_Colortext_Load()
if DateDiff("d",Me.date_Pret,Me.date_Retour) < 0 Then
Me.Text.ForeColor = QBColor(1)
if DateDiff("d",Me.date_Pret,Me.date_Retour) > 0 Then
Me.Text.ForeColor = QBColor(4)
End If
if DateDiff("d",Me.date_Pret,Me.date_Retour) = 0 Then
Me.Text.ForeColor = QBColor(2)
End If
End If
End Sub

après exécution tous les textes sont de couleur bleu. je ne sais pas ou se trouve le probleme.
voila si quelqu'un saurait comment résoudre mon problème, qu'il m'apporte son aide.
je tiens à préciser que suis un débutant en VBA, donc possible que le code même contient des erreurs d'instructions si c'est le cas,daigner m'apporter votre contribution
cordialement merci