Boucle do until vba access

Bonjour,
je travail actuellement sur du code vba. J' ai une boucle

Do until 

qui boucle sur mon code en entier. Voila ma question je voudrai intégrer une auter boucle afin de pouvoir boucler sur un champ "run" jusqu'a tant qui soit vide et apres faire ma boucle do until.
je vous mets mon code pour essayer de comprendre. attention je suis débutant, c'est surement un gros bordel ^^
merci par avance :)

Sub sortieRun()

Dim db As Database
 
Dim jour As String
Dim sSQL0 As String
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String
Dim sSQL4 As String
Dim sSQL5 As String
 
Dim i, l As Integer
 
Dim flag As DAO.Recordset
Dim run As DAO.Recordset
Dim typerun As DAO.Recordset
Dim rstest As DAO.Recordset
Dim rsdate As DAO.Recordset
Dim rscal As DAO.Recordset
Dim rs As DAO.Recordset
Dim okay As DAO.Recordset
 
jour = Date
    MsgBox jour
 
Set db = CurrentDb
    Set rstest = db.OpenRecordset("test")
 
sSQL0 = "select date_resil FROM Dossier;"
    Set flag = db.OpenRecordset(sSQL0)
 
sSQL3 = "select run FROM Dossier;"
    Set run = db.OpenRecordset(sSQL3)
 
sSQL5 = "select okko FROM Dossier;"
    Set okay = db.OpenRecordset(sSQL5)
 
  Do Until date_resil = Not Null
    
With rstest
     .AddNew
     
        .Fields("date_resil") = flag.Fields("date_resil")
        .Fields("run") = run.Fields("run")
        .Update
        dr = flag.Fields("date_resil")
        MsgBox dr
        rn = run.Fields("run")
        MsgBox rn
End With
 
     Set rscal = db.OpenRecordset("calendrier")
sSQL4 = " select run" & rn & " FROM calendrier;"
     Set rs = db.OpenRecordset(sSQL4)
     rs.MoveFirst
     i = 1
     essai = rs.Fields("run" & rn & "")
            MsgBox essai
     i = 1
If dr > essai And essai < jour Then
    With okay
        .Edit
        .Fields("okko") = "ok"
        .Update
        rs.MoveNext
    End With
Else
    'i = i + 1
    rs.MoveNext
End If
flag.MoveNext
Loop
    'i = i + 1
    'rs.MoveNext
 
End Sub