Dim xml As New MSXML2.DOMDocument
Dim strName As String
Dim i As Integer
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim cat As New ADOX.Catalog
 
'Einlesen des XML Files
xml.Load "c:\Temp\test.xml"
strName = xml.documentElement.BaseName
 
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM " & strName
 
For i = 0 To xml.documentElement.childNodes.Length - 1
rs.AddNew
rs.Fields("KundenNr").Value = _
xml.documentElement.childNodes(i).childNodes(0).Text
rs.Fields("Nachname").Value = _
xml.documentElement.childNodes(i).childNodes(1).Text
rs.Update
Next i