Opret XML Files af en forespørgsel og 2 tabeller lavet fra VBA

Jeg skal have Opret XML Files af en forespørgsel og 2 tabeller lavet fra VBA

MS beskriver koderne her:
http://msdn.microsoft.com/en-us/library/office/ff193212.aspx

Men det giver fejlmeddelsen:
Det indtastede udtryk refererer til et objekt der er blevet lukket eller sletted.

Forespørgsel Navn: Kontakt
Består af tabellerne Firma og Kontakt_Dato

Dim objOrderInfo As AdditionalData
Dim objOrderDetailsInfo As AdditionalData

Set objOrderInfo = Application.CreateAdditionalData

' Add the Orders and Order Details tables to the data to be exported.
Set objOrderDetailsInfo = objOrderInfo.Add("Firma")
objOrderDetailsInfo.Add "Kontakt_Dato"

' Export the contents of the Customers table. The Orders and Order
' Details tables will be included in the XML file.
Application.ExportXML ObjectType:=acExportTable, DataSource:="Kontakt", _
DataTarget:=Test6.xml", _
AdditionalData:=objOrderInfo