XML Importing problem

[Jim Pepper]

When trying to import an XML file by doing file, import, selecting the
directory and the the file, I get the XML dialog box and the have to go to
options to append. How do I set the default so it automatically defaults to
append? Or using

Function ImportXML()
Application.ImportXML _
DataSource:="h:\A B\Loaded XML\order_3950.xml", _
ImportOptions:=acAppendData
End Function
And select the file I want by replacing the existing file name?