Application.Imp ortXML Fatal Error; Causes? Way Around?

[Patrick A]

All -

2 questions, the answer to either one having the possibility of making
the other a moot point:

1. I have a DB with a form that serves as a GUI to let the user browse
for an XML file and import it, and I can't get Access to overwrite the
tables when it finds them in existence. Can anyone tell me how to make
this happen? I can't get the "OtherFlags :=1" option to work -

I've even tried using just the code from MSDN, but I can't even get
this to work;

Application.Imp ortXML _
DataSource:="C: \XMLData\Invoic es.xml", _
OtherFlags:=1

Whenever I try to run or compile it, Access shows the error "Named
argument not found." Here's the line I'm currently using, without
the option:

Application.Imp ortXML [MyXMLFile], acStructureAndD ata

(Full code below to explain [MyXMLFile])

Am I missing something? If I should be "naming " (Dimming?)
OtherFlags, how? Any one know what the finished line should look like?
I've tried many, many variations.
2. I can use the form successfully a few times (deleting the tables
manually), until maybe the 4th or 5th time I try the process, and
Access crashes and rebuilds the DB. Then the form won't work any more,
unless I create a new DB and import all my forms, modules, etc. Any
ideas why?

I don't know if this is because I have to delete the newly created
tables manually...but I'm trying to eliminate all possible sources of
"corruption ."

Here's the full code I'm using, built from several sources. I've
included more than just the Application.Imp ort line because I'm using a
control to get [MyXMLFile], the name of the XML file.
_______________ _______________ _______________ _______________ _______

Option Explicit

Dim MyXMLFile As String
_______________ _______________ _______________ _______________ _______

Private Sub Select_Button_C lick()
Dim strInputFileNam e As Variant

strInputFileNam e = FileOpenSave(Tr ue)

If Len(strInputFil eName) > 0 Then
MyXMLFileTxt = strInputFileNam e
MyXMLFile = strInputFileNam e
End If

End Sub
_______________ _______________ _______________ _______________ _______

Private Function FileOpenSave(fO pen As Integer) As Variant
Dim ofn As tagOPENFILENAME
Dim strFilter As String
Dim lngFlags As Long

strFilter = acbAddFilterIte m(strFilter, "XML Files (*.xml)",
"*.XML")

FileOpenSave = acbCommonFileOp enSave(Filter:= strFilter, _
InitialDir:="\\ B3\CDW\Informat ion Solutions\2 -
Documentation\D ocuVisn\Corpora te Data Warehouse")

OK_Button.Visib le = True
End Function
_______________ _______________ _______________ _______________ _______

Private Sub OK_Button_Click ()

If IsNull([MyXMLFile]) Then
Beep
MsgBox "Please click the 'Select...' button to browse to a
DocuVisn XML file.", 64, "Completion Message"

Else
DoCmd.Hourglass True
DoCmd.Echo True, "Now Importing DocuVisn XML File...Please
Wait"

'Import Stuff

Application.Imp ortXML [MyXMLFile], acStructureAndD ata

DoCmd.Echo True
DoCmd.Hourglass False

Beep

MsgBox "The XML file has been successfully imported. Now open
'CDW Reports Data Entry' and complete the Report Verification ", 64,
"Completion Message"

DoCmd.Close acForm, "FRM_Import_DV_ XML"

End If

End Sub

_______________ _______________ _______________ _______________ _______

I'd rather not create/delete/create/delete over and over again, because
I think it may be what's causing problems with the stability of my
DB. Not sure if this is the case - maybe someone knows of or can
spot something else that could be causing the problem.

Thanks.

Patrick