XML: Criando um Recordset Desconectado de uma String XML

XML: Criando um Recordset Desconectado de uma String XML

Adicione uma referência a MSXML e então inclua este código em um módulo. Apenas chame a função XMLStringToRecordset passando um documento XML válido. (Nota: o formato do documento deve estar de acordo com o formato definido pela Microsoft).

Public Function XMLStringToRecordset(strXML As String) As Recordset
    Dim objStream As ADODB.Stream
    Dim oRecordset As ADODB.Recordset

    Set objStream = New ADODB.Stream

    objStream.Open
    objStream.WriteText strXML
    objStream.position = 0

    Set oRecordset = New ADODB.Recordset
    oRecordset.Open objStream

    objStream.Close
    Set objStream = Nothing

    Set XMLStringToRecordset = oRecordset

    Set oRecordset = Nothing
End Function