Я снова не могу совладать с xml:

Есть код:
==============================================================
Dim xd As New Xml.XmlDocument
xd.Load("xmlfile.xml")

Dim elemItem As Xml.XmlElement = xd.CreateElement("Item")
Dim cmpId As Xml.XmlAttribute = xd.CreateAttribute("Id")
Dim cmpName As Xml.XmlAttribute = xd.CreateAttribute("Name")

Dim elemSubItem1 As Xml.XmlElement = xd.CreateElement("SubItem1")
Dim elemSubItem2 As Xml.XmlElement = xd.CreateElement("SubItem2")

elemItem.SetAttributeNode(cmpId)
elemItem.SetAttribute("Id", strItemID)
elemItem.SetAttribute("Name", strItemName)

Dim rootItem As Xml.XmlElement = xd.Item("Root").Item("Item")

elemSubItem1.InnerText = "Sub Item Value 1"
elemSubItem2.InnerText = "Sub Item Value 2"

rootItem.AppendChild(elemItem).AppendChild(elemSubItem1)
rootItem.AppendChild(elemItem).AppendChild(elemSubItem2)

xd.Save("xmlfile.xml")
==============================================================

В результате получается:

<?xml....>
<Root>
...
<Item id="..." Name="...">
<SubItem1>...</SubItem1>
<SubItem2>...</SubItem2>
...
</Item>
</Root>

Но нужно уже после SubItem2 вставить следующее:
...
...
...
</SubItem2>
<PlusItemsList>
<PlusItem PlusID="..." PlusName="..." />
...
</PlusItemsList>

Вот как это сделать??? (PlusItemsList - значения присваевается в цикле, точного количества проходов неизвестно).

Я попробовал так:

...

Dim elemPlusItem As Xml.XmlElement = xd.CreateElement("PlusItem")
Dim cmpPlusID As Xml.XmlAttribute = xd.CreateAttribute("PlusID")
Dim cmpPlusName As Xml.XmlAttribute = xd.CreateAttribute("PlusName")
...

Dim elemPlusList As Xml.XmlElement = xd.CreateElement("PlusItemsList")
rootItem.AppendChild(elemItem).AppendChild(elemPlusList)

For i = 0 To iCount
elemComponent.SetAttribute("PlusID", "...")
elemComponent.SetAttribute("PlusName", "...")

rootItem.AppendChild(elemItem).AppendChild(elemPlusList).AppendChild(elemPlusItem)
Next i

Но добавляется только последний элемент.

PLEASE HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
_______________________________________________________
Если расширить двери восприятия и отбросить всё наностное, то все вещи предстанут такими, какие они есть на самом деле - Б Е С К О Н Е Ч Н Ы М И !!!