Private Sub abd()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim sSQL As String
Dim sConnectionString As String
Dim strXML As String
Dim os As ADODB.Stream
Dim os2 As ADODB.Stream

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set os = New ADODB.Stream
Set os2 = New ADODB.Stream

sSQL = "Select * From Participant"
sConnectionString = cgsConnectionString & " Source=" & "E:\F1\Data\F1.mdb"
cn.CursorLocation = adUseClient
cn.Open sConnectionString
rs.Open sSQL, cn, adOpenKeyset, adLockBatchOptimistic

rs.Save os, adPersistXML
rs.Close
Set rs = Nothing

strXML = os.ReadText(adReadAll)

os2.Open
os2.WriteText strXML

os2.Position = 0 'Set the stream position to the start

rs2.Open os2

os2.Close
Set os2 = Nothing

rs2.ActiveConnection = cn

While Not rs2.EOF
rs2.Fields("Adresse") = CStr(Time) & "123 Mont"
rs2.Update
rs2.MoveNext
Wend

rs2.ActiveConnection = cn
rs2.UpdateBatch adAffectAllChapters
rs2.Close
Set rs2 = Nothing

End Sub