Private Sub Command1_Click()

Dim Rst1 As New ADODB.Recordset
Dim Rst2 As New ADODB.Recordset

Rst1.Fields.Append "xx1", adInteger
Rst1.Fields.Append "xx2", adChar, 5
Rst1.Fields.Refresh

Rst1.Open
Rst1.AddNew
Rst1.Fields(0).Value = 1
Rst1.Fields(1).Value = "NAME1"
Rst1.Update

Kill "C:\Recordset.XML"
Rst1.Save "c:\Recordset.xml", adPersistXML
Rst1.Close
Set Rst1 = Nothing

Rst2.Open "c:\Recordset.xml"
Do Until Rst2.EOF
Debug.Print Rst2(0), Rst2(1)
Rst2.MoveNext
Loop

Rst2.Close
Set Rst2 = Nothing
End Sub