Function ExportXML() Dim ApAces Set ApAces = CreateObject("Access.Application") ApAces.OpenCurrentDatabase "D:\Baza.mdb" ApAces.ImportXML "D:\Fajlxml.xml", acAppendData End Function