Set fso = New Scripting.FileSystemObject
Set fXML = fso.CreateTextFile("c:\libros.xml", True)
fXML.WriteLine "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
fXML.WriteLine "<libros>"
Do While Not rs.EOF
fXML.WriteLine "<libro>"
fXML.WriteLine "<id>" & rs("title_id") & "</id>"
fXML.WriteLine "<titulo>" & rs("title") & "</titulo>"
fXML.WriteLine "<precio>" & rs("price") & "</precio>"
fXML.WriteLine "</libro>"
rs.MoveNext
Loop
fXML.WriteLine "</libros>"
aqui estas creando un xml a raiz de un recordset
espero te sirva