How can I automate exporting of tables into proper XML files from MSSQL or Access?

SELECT
    *
FROM
    Customers
INNER JOIN Orders ON Orders.CustID = Customers.CustID
FOR XML AUTO

<customer id="204">
    <firstname>John</firstname>
    <lastname>Public</lastname>
</customer>

Const acExportTable = 0

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:ScriptsTest.mdb"

'Export the table "Inventory" to test.xml
objAccess.ExportXML acExportTable,"Inventory","c:scriptstest.xml"