Access VisualBasic Script

Sub ExportcustXML()
    Application.ExportXML _
     ObjectType:=acExportTable, DataSource:="Employees", DataTarget:="c:\Companyxml.xml", _
     SchemaTarget:="CompanySchema.xml", _
     OtherFlags:=1
    
End Sub