MDAC 2.6 Stream XML Recordset

[jpierre3]

See below, when i try to open my string "XML", i got this error
Run-time error '3709': The application requested an operation on an object
with a reference to a closed or invalid Connection object.

i'm on MDAC 2.6
I know there a bug report on Knowledge DB, but the solution is : install a
recent MDAC like MDAC 2.6. But i'm already on MDAC 2.6 !!!

If someone can help me.

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

On Error Resume Next
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set os = New ADODB.Stream


sConnectionString = cgsConnectionString & " Source=" &
"E:\F1\Data\F1.mdb"
cn.CursorLocation = adUseClient
cn.Open sConnectionString

rs.Open "Select * From Participant", cn

rs.Save os, adPersistXML

rs.Close
Set rs = Nothing

strXML = ostream.ReadText(adReadAll)

'***************
rs2.Open strXML
'***************
End Sub

[jpierre3]

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