sim é possivel vamos ver... sub nanana()
dim na as adodb.recordset
set na as new adodb.recordset
With na.Fields
.Append "nome", adVariant, 50
.Append "endereço", adVariant, 50
.Append "telefone", adVariant, 50
End With
na.Open
na(0) ="carlos"
na(1) ="rua tal"
na(2) ="888888"
na.save "aqui você coloca o lugar para o xml ser salvo",adPersistXML
end sub é isso que voce procurava?