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