XML bestanden transformeren en in Access importeren

[Hondaman]

Dagelijks haal ik via een internetapplicatie een aantal XML bestanden binnen. De gegevens uit deze bestanden dienen in een Access database geimporteerd te worden.
Aangezien de XML bestanden nogal eigenaardig zijn opgebouwd, gebruik ik een transform bestand om het XML bestand in de gewenste indeling om te zetten.

Door mezelf in te lezen en op internet zoeken, ben ik op onderstaande programma code uitgekomen:

 Sub XML_inlezen()
    Dim C0 As String
    Dim C1 As String
    Dim C2 As String
    Dim C3 As String
    Dim counter1 As Integer
    Dim counter2 As Integer

    C0 = "D:\XML\"
    C1 = Dir(C0 & "1*.xml")
    C2 = "D:\XML\Import\"
    C3 = Dir(C2 & "1*.xml")
    counter1 = 0
    counter2 = 0
    
    Do Until C1 = ""
      Application.TransformXML C0 & C1, _
      "D:\XML\convert-XML.xsl", C2 & C1
      C1 = Dir
      counter1 = counter1 + 1
    Loop
    MsgBox ("Getransformeerd : " & counter1 & "XML bestanden")
    
    Do Until C3 = ""
      Application.ImportXML C2 & C3, acAppendData
      C3 = Dir
      counter2 = counter2 + 1
    Loop
    MsgBox ("Geimporteerd : " & counter2 & "XML bestanden")
End Sub

Resultaat is dat er maar een file getransformeerd wordt en vervolgens tijdens de import routine een Run-time error '5': Invalid procedure call or argument optreed.

Kan iemand mij verder op weg helpen?