Boucle pour mettre un vide VBA

Bonjour,
Voila, j'essaye de remplacer dans une colonne de ma base les champs de okko quand la date de resil et supérieur a la date du jour afin de les remplacer par un vide.

voici ma boulce ne fonctionnent pas :

Do While Not flag.EOF
     flag.MoveFirst
          If dr >= Date Then
          With dr
         .Edit
         .Fields("okko") = " "
          .Update
     End With
     End If
     flag.MoveNext
   Loop

flag correspond a ma requête sql qui prend la date de resil et une date de run qu'on se sert pas pour cette boucle.
Date c'est ma variable qui prend la date du jour (date systeme)
dr c'est ma variable apres cette ligne de code

dr = flag.Fields("date_resil")

Merci de votre aide!!
Si je n'ai pas été assez clair dite le moi :)
Merci !!