Mettre vide quand il y a zero dans ma table

Bonjour,
Voila ma question : je voudrai remplacer les zéro de la colonne par un vide, j'ai fait un essai mais ça ne rentre pas dans ma boucle. J'ai un doute sur ma condition.
merci de bien vouloir m'aider !!

Sub sortieRun()


    Dim jour As String
    Dim db As Database
    Dim sSQL0 As String
    Dim sSQL4 As String
    Dim sSQL2 As String
    Dim flag As DAO.Recordset
    Dim rstest As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim compte As String
    Dim essai As String
    
    jour = Date ' date du systeme
    
   
    Set db = CurrentDb
    Set rstest = db.OpenRecordset("test")
    sSQL2 = "select compte_run_facturation,compte_marq_si,compte_date_resil FROM compte_reseau where compte_run_facturation is null;"
        Set vide = db.OpenRecordset(sSQL2) ' variable permettant de voir si le champ run est vide
           
           
           
          vide.MoveFirst
         
         Do While Not vide.EOF
         rn = vide.Fields("compte_run_facturation") ' variable run de la requete vide
 dr = vide.Fields("compte_date_resil")         ' variable date_resil de la requete vide
         
         If rn = 0 Then
         With vide
                .Edit
                .Fields("compte_run_facturation") = " "
                .Update
         End With
                  
           End If
           
         
         
         
          ' compte = Date - dr
          'MsgBox compte
         If Date - dr > 31 Then ' verifie que la date systeme moins la date de resil et inférieur à 31 (nombre jours max dans un mois)
        
                With vide
                    .Edit
                    .Fields("compte_marq_si") = "true"
                    .Update
                End With
                         
              End If
              vide.MoveNext
            Loop
end sub 

je vous ai mis qu'une partie du code car beaucoup trop grand ^^