Inscription dans une colonne à partir d'un code vba

Sub runtype()
Dim Jour As String
Dim db As Database
Dim rsdateres As DAO.Recordset
Dim rsrun1 As DAO.Recordset
Dim rsrun2 As DAO.Recordset
Dim rsrun3 As DAO.Recordset
Dim rsrun4 As DAO.Recordset
Dim fld As DAO.Field
Dim sSQL1 C
Dim sSQL2 As String
Dim sSQL3 As String
Dim sSQL4 As String
Dim sSQL5 As String

Dim run1 As String

'Dim i As Long
'rsdateres.MoveFirst
'i = 1

Jour = date
MsgBox Jour
Set db = CurrentDb

    sSQL1 = "SELECT date_resil FROM Dossier"
    Set rsdateres = db.OpenRecordset(sSQL1, dbOpenDynaset, dbSeeChanges, dbPessimistic)
    'Set rsdateres = db.OpenRecordset(sSQL1, dbOpenForwardOnly, dbReadOnly) ' Ouverture du Recordset
    'MsgBox rsdateres
    
    
    sSQL2 = "select Run1 FROM calendrier"
   Set rsrun1 = db.OpenRecordset(sSQL2, dbOpenDynaset, dbSeeChanges, dbPessimistic)
'    MsgBox rsrun1
    
    sSQL3 = "select Run2 FROM calendrier"
    Set rsrun2 = db.OpenRecordset(sSQL3, dbOpenDynaset, dbSeeChanges, dbPessimistic)
'    MsgBox rsrun2
   
    sSQL4 = "select Run3 FROM calendrier"
    Set rsrun3 = db.OpenRecordset(sSQL4, dbOpenDynaset, dbSeeChanges, dbPessimistic)
'    MsgBox rsrun3
    '1
  sSQL5 = "select run from Dossier"
    Set rsrun4 = db.OpenRecordset(sSQL5, dbOpenDynaset, dbSeeChanges, dbPessimistic)
    
 rsdateres.MoveFirst
Do Until rsdateres.EOF

  If rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun1!run1 Then
    With rsrun4
 .AddNew
  .Fields("run") = "Run1"
  .Update
  End With
  
      
      Else
     If rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun2!run2 And rsdateres!date_resil > rsrun1!run1 Then
            'If rsdateres < Jour And rsdateres < rsrun2 And rsdateres > rsrun1 Then
              '  rsrun2.Fields("run") = "run2"
           
         Else
                If rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun3!run3 And rsdateres!date_resil > rsrun2!run2 Then
                    'If rsdateres < Jour And rsdateres < rsrun3 And rsdateres > rsrun2 Then
                        'rsrun3.Fields("run") = "run3"
                        
                        
        Else
                         If rsdateres!date_resil < Jour And rsdateres!date_resil > rsrun3!run3 Then
                            'If rsdateres < Jour And rsdateres > rsrun3 Then
                             '  rsdateres.Fields("run") = pas - résilier
                             
        End If
         End If
         End If
         End If
     rsdateres.MoveNext
  Loop

rsdateres.Close ' Fermeture du Recordset
'MsgBox


'l = rst.RecordCount
End Sub