Access - Generar XML desde vba de access

<?xml version="1.0' encoding="UTF-8">

<Items>

  <Item departmentFK="0" price="96" description="tortiglioni" pluCode="8076802085" cmd="update"/>

  <Item departmentFK="6" price="236" description="sugo olive" pluCode="8005360202" cmd="update"/>

  <Item departmentFK="115" price="175" description="risotto asparagi" pluCode="4015400031" cmd="update"/>

  <Item departmentFK="36" price="60" description="nescafe" pluCode="8013355000" cmd="update"/>

  <Item departmentFK="33" price="255" description="nesquik" pluCode="4002567205" cmd="update"/>

</Items>

Dim rst As ADODB.Recordset

Dim cnx As ADODB.Connection

Open "c:\Mis Documentos\Fichero.xml" For Output As #1

Set rst = CreateObject("ADODB.Recordset")

cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Variable con la ruta a tu BBDD & ";Persist Security Info=False;"

rst.CursorLocation = adUseClient

rst.ActiveConnection = cnx

rst.Open "SELECT * FROM Mitabla", cnn, adOpenDynamic, LockType:=adLockReadOnly

GrabarXML("<?xml version="1.0' encoding="UTF-8">")

GrabarXML("<Items>")

'Bucle principal que lee los registros de la tabla

do until rst.EOF=True

     GrabarXML("<Item departmentFK=""" & rst!departamento & """ price=""" & rst!Precio & """ description=""" & rst!Descripcion & """ _

     & pluCode=""" & rst!plucode & """ cmd=""" & rst!cmd & """/>")

     rst.MoveNext

loop

GrabarXML("/<Items>")

Close #1

set rst = Nothing

set cnx = Nothing

'Graba el texto al fichero

Sub GrabarXML(Texto as string)

Write #1,Texto

End Sub

'Esta subrutina obtiene los nombres de los campos de la tabla para que puedas automatizarlo y puedas exportar cualquier tabla

Sub GrabarCamposDeLaTablaXML()

    Dim dbs As DAO.Database

    Dim tdf As DAO.TableDef

    Dim fld As DAO.Field

    Set dbs = OpenDatabase("Ruta a tu base de datos.mdb")

    Set tdf = dbs.TableDefs("Nombre de la tabla")

    For Each fld In tdf.Fields

        GrabarXML(fld.Name) 'GrabarXML será la subrutina que abrirá el fichero XML y añadirá el texto del nombre del campo

    Next

    Set fld = Nothing

    Set tdf = Nothing

    dbs.Close

End Sub

Private Sub pascual22()

Dim docxmldom  As Object

Dim muestra As String

    Set docxmldom = CreateObject("MSXML2.DOMDocument.3.0")

muestra ="<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf

 muestra = muestra &  "   <Items>" & vbCrLf

'Aquí poner bucle de tabla o formulario

Dim rst As DAO.Recordset

Set rst = Me.Nombreformulario.Form.RecordsetClone

.MoveFirst

Do Until .EOF

muestra = muestra &  "      < Item departmentFK=!DEPARTMENTO  price= !PRECIO description= DESCRIPCION  pluCode= !PLUCODE cmd=!CMD >”” & vbCrLf

    .MoveNext   'Nos movemos al siguiente registro

    Loop        'Volvemos al inicio  'Termina bucle

muestra = muestra & "   </Items>"

docxmldom.LoadXML muestra

docxmldom.Save "Tunombre.xml"

Set docxmldom = Nothing

End Sub