XML output code not working :confused:

[benji_styler06]

Hi,

I have adapted this code from an example to try and generate an xml output which will export my "Album" table along with related data from my "track" table, but i cant get it to work? think i have the wrong obj names, not too sure on what it should be linked to? any help would be great.

Heres my ERD and my code:

Private Sub ExportAlbum_Click()
Dim objTrackID As AdditionalData

Set objTrackID = Application.CreateAdditionalData

objTrackID.Add "Track"
objTrackID.Add "Track Title"

Application.ExportXML ObjectType:=acExportTable, DataSource:="Alum", _
DataTarget:="Album Info.xml", _
AdditionalData:=objTrackID
End Sub