Function ExportXMLUIstu() Access.ImportXML "D:\Fajlxml.xml", acAppendData End Function