XML : MS Access VBA export XML hierarchy

I have a database crdatabase that contains below tables:

  releases  fields:      name      release_status      year    changerequests  fields:      id      description      release      cr_status      affectedcpid    affectedcomponents  fields:      id      name    

Relationships: change requests are linked to releases table via release <-> name field. change requests are linked to affectedcomponents table via affectedcpid <-> id field

I would like to export XML in hierarchy:

  <crdatabase>  <release>      <name>release1</name>      <year>2016</year>      <status>active</status>      <changerequest>          <id>1</id>          <description>change1</description>          <cr_status>open</cr_status>          <affectedcomponent>comp1</affectedcomponent>          <affectedcomponent>comp2</affectedcomponent>          <affectedcomponent>comp3</affectedcomponent>      </changerequest>      <changerequest>          <id>3</id>          <description>change3</description>          <cr_status>working</cr_status>          <affectedcomponent>comp5</affectedcomponent>     </changerequest>  </release>  <release>      <name>release2</name>      <year>2015</year>      <status>nonactive</status>      <changerequest>          <id>2</id>          <description>change2</description>          <cr_status>closed</cr_status>          <affectedcomponent>comp1</affectedcomponent>          <affectedcomponent>comp2</affectedcomponent>      </changerequest>  </release>  .....  </crdatabase>    

I tried using AdditionalData in vba as below:

  Public Sub exportToXML(pFileNAme As String)      Dim objOrderInfo As AdditionalData      Set objOrderInfo = Application.CreateAdditionalData      objOrderInfo.Add("releases")      objOrderInfo.Add ("changerequests").Add ("affectedcpid")      objOrderInfo.Add ("affectedcomponents")        Application.ExportXML ObjectType:=acExportTable, DataSource:="releases", _                        DataTarget:=pFileNAme, _                        AdditionalData:=objOrderInfo, WhereCondition:="Parameter='test'"  End Sub    

It doesn't work as expected as it doesn't export in hierarchy nor export the search queries. Any ideas? DOM or print (please give example codes) are all acceptable as long as it can be handled in vba. Thanks!