Tuto VB/Access

Form3.adoData3.Recordset.AddNew
    Form3.adoData3.Recordset![valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
    Form3.adoData3.Recordset.UpDate

Declare Sub Sleep Lib "kernel32" ( _
                 ByVal dwMilliseconds As Long)

Public Function InsertionTop(ByVal topDeb As String, ByVal topFin As String) As Boolean
Dim Vrai As Boolean
Dim query As String
Dim ValueId As Long
    
    ModESEnt_STD.initTableEnt_STD
    query = "SELECT max(id_std) from ent_std"
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
    ValueId = rs.Fields(0)
    'Set rs = Nothing
    
    'Set rs = New ADODB.Recordset
    If Vrai = True Then
        rs.Open "Update ent_std Set top_debut = '" & topDeb & "' Where id_std= " & ValueId, ModuleBdD.cnx
    Else
        MsgBox "Un problème est survenu durant l'insertion du top début"
    End If
        
    If Vrai = True Then
        rs.Open "Update ent_std Set top_fin = '" & topFin & "' Where id_std= " & ValueId, ModuleBdD.cnx
    Else
        MsgBox "Un problème est survenu durant l'insertion du top fin"
    End If
    
End Function

Public Sub stand(ByVal valueId As Long)
Dim query, id_seq As String
Dim Vrai As Boolean
Dim tmps, tmpstot As Long
Dim is_std As Long
Dim idseq As Long
    
    ModESSeq_std.initTableSeq_STD
    query = "SELECT * from seq_std where id_std = " & valueId
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
   
    Vrai = rs.MoveFirst
    While Vrai = True
        is_std = ModESSeq_std.getis_std
        If is_std = 0 Then
            Vrai = rs.MoveNext
            If Vrai = False Then
                tmps = ModESCal.calcM1
                tmpstot = tmpstot + tmps
            End If
        Else
            idseq = ModESSeq_std.getIdSeq
            valueId = ModESSeq_std.searchIdByItem(id_seq, idseq)
            stand (valueId)
        End If
        Vrai = rs.MoveNext
        If Vrai = False Then
            tmps = ModESCal.calcM1
            tmpstot = tmpstot + tmps
        End If
    Wend

    MsgBox "tmpstot : " & tmpstot

End Sub

vrai = ModESSeq_std.LirePremier(rs)
While vrai = True
   is_std = ModESSeq_std.getis_std
   If is_std = 0 Then
      vrai = ModESSeq_std.LireSuivant(rs)
.... etc
vrai = ModESSeq_std.LireSuivant(rs)
wend