[Resolvido]Gerando xml de tabelas

Olá estou testando esse codigo e esta dando um erro que diz que o "Objeto referido foi fechado ou não existe"

Dim objOrderInfo As AdditionalData
Dim objOrderDetailsInfo As AdditionalData

Set objOrderInfo = Application.CreateAdditionalData

' Adiciona as tabelas Orders e Order Details com os dados a serem exportados.

Set objOrderDetailsInfo = objOrderInfo.Add("TblVendas")
objOrderDetailsInfo.Add "TblSubVendas"

'Exportar o conteúdo da tabela Customers. Pedidos e Ordem
' ‘Tabelas Detalhes serão incluídos no arquivo XML.

Application.ExportXML ObjectType:=acExportTable, DataSource:="TesteXml", _
DataTarget:="testeXml.xml", _
AdditionalData:=objOrderInfo

End Sub

Pois bem ja não foi referenciado?
E mais uma coisa como faço para filtral somente os registro que desejo??

Olá, será melhor postar o exemplo que está a testar.
Abraço

As duas tabela foi só teste mesmo, incluidos dados fictícios mas o código não consegui abrir as tabelas

Olá, mesmo assim, uma vez que já tem o exemplo de teste, de certeza que não pretende que os colegas tenha que estar a criar as tabelas com os campos do exemplo que está a testar e pretende ajuda.
Abraço

Resolvido, desculpa por tomar o tempos do Srs. cada erro bobo, erro no referenciar as tabelas por minha parte Mil Desculpas....

Olá, ainda bem que já está resolvido.
Obrigado pelo retorno.
Abraço