Listing 10 Converting Recordset's XML
' Converts the XML for a single Recordset back into a ' Recordset. Public Function ConvertXmlToRecordset(ByVal vsXml As String) As ADODB.Recordset Dim loRecordset As New ADODB.Recordset Dim loStream As New ADODB.Stream loStream.Open loStream.WriteText vsXml loStream.Position = 0 loRecordset.Open Source:=loStream, Options:=ADODB.CommandTypeEnum.adCmdFile Set ConvertXmlToRecordset = loRecordset End Function