Sub haba()
On Error GoTo ErrExit
    Dim rs As Object 'DAO.Recordset
    Dim xmlDoc As Object 'MSXML2.DOMDocument
    Dim xmlNode As Object 'MSXML2.IXMLDOMNode
    Dim xmlNode1 As Object 'MSXML2.IXMLDOMNode
    Dim xmlAttribut As Object 'MSXML2.IXMLDOMAttribute
    Dim xmlNodeList As Object 'MSXML2.IXMLDOMNodeList
    Dim xml_path As String
    Dim FileName As String
    Dim NameOrg, INN, KPP
    '
    Set rs = CurrentDb.OpenRecordset("select * from Tab where 1=0")
    '
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.async = False
    FileName = CurrentProject.path & "\Oborot.xml"
    If Not xmlDoc.Load(FileName) Then Exit Sub

'

Подскажите пожалуйста имея такой код как реализовать загрузку всех файлов из папки имея расширение xml, а не грузить их по одному. например файлы на с:\5555\ *.xml , как это кодом реализовать спасибо.

http://www.sql.ru/forum/1172735/import-xml-v-tablicy-access