Never done it myself but you could mess about with the following code
IMO
Function importXML()
Dim rstXML as New ADODB.recordset
Dim rstYourTable as New ADODB.recordset
Dim myTable as string
myTable = "YourTable" ' Your Table Name
'open the recordsets:
rstXML.open "c:\YourFolder\Yourfile", "Provider=MSPersist",,, adCmdFile
rstYourTable.open myTable, currentproject.connection, adOpenDynamic, adLockOptimistic
'Add the xml data to YourTableName
with rstXML
Do while .EOF = false and .BOF = false
rstYourTable.addnew
rstYourTable!Field1 = rstXML!Field1 'change this to your fieldname
'etc. etc.
rstYourTable.update
rstXML.movenext
end with
'close recordsets again
rstXML = nothing
set rstXML = nothing
rstYourTable.close
set rstYourTable = nothing
End function