VB6 и XML от начинающей

Формулировка задачи:

День добрый всем! Жизнь заставляет сейчас писать на VB6 создание XML-файла по моим данным. Не зная ни того, ни другого, где-то просто отрыла какой-то учебный пример и стала его переделывать. Почти идет, но проблема: у меня (упрощая суть) надо на выходе иметь что-то типа: <T1RXXXXG02 ROWNUM="1">1335204566</T1RXXXXG02> <T1RXXXXG02 ROWNUM="2">1335207800</T1RXXXXG02> <T1RXXXXG02 ROWNUM="3">4445201806</T1RXXXXG02> А получается то же самое, но нач.тэг – без ROWNUM="1” У меня программа (если выхолостить лишнее) имеет примерный вид:

Dim objDoc As MSXML2.DOMDocument
Dim objNode As MSXML2.IXMLDOMNode
 
Set objDoc = New DOMDocument
objDoc.resolveExternals = True
Set objNode = objDoc.createProcessingInstruction( _
    "xml", "version='1.0' encoding='windows-1251'")
Set objNode = objDoc.insertBefore(objNode, objDoc.childNodes.Item(0))
Set objRoot = objDoc.createElement("DECLAR")
Set objDoc.documentElement = objRoot
     
objRoot.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"
objRoot.setAttribute "xsi:noNamespaceSchemaLocation", "E04T00F.XSD"
 
Do While Not RsStat.EOF
     Set objNode = objDoc.createElement("T1RXXXXG02")
     objDoc.documentElement.setAttribute "ROWNUM", "'" + Trim(Str(RsStat.Fields.Item("np"))) + "'"
    objNode.Text = Trim(RsStat.Fields.Item("tin"))
    objdeclb.appendChild objNode
    RsStat.MoveNext
Loop

objRoot.setAttribute "xmlns:xsi"… - проходит, дозаписывает в нач.тэг, а objDoc.documentElement.setAttribute "ROWNUM", "'" + Trim(Str(RsStat.Fields.Item("np"))) + "'" – нет. Кто поможет???? ((((

Решение задачи: «VB6 и XML от начинающей»

textual
                            Листинг программы 
                        

                            Sub Start()
Dim objDoc As MSXML2.DOMDocument
Dim objNode As MSXML2.IXMLDOMNode
Dim currNode As MSXML2.IXMLDOMNode
Dim objAttr As MSXML2.IXMLDOMAttribute
 
     Set objDoc = New DOMDocument
     objDoc.resolveExternals = True
     Set objNode = objDoc.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'")
     Set objNode = objDoc.insertBefore(objNode, objDoc.childNodes.Item(0))
     Set objRoot = objDoc.createElement("DECLAR")
     Set objDoc.documentElement = objRoot
 
     objRoot.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"
     objRoot.setAttribute "xsi:noNamespaceSchemaLocation", "E04T00F.XSD"
 
     Set currNode = objRoot
 
     For i% = 1 To 10
         Set objNode = objDoc.createElement("T1RXXXXG" + CStr(i%))
         objNode.Text = "Ля-ля-ля"
         Set objAttr = objDoc.createAttribute("ROWNUM")   '::: Здесь
         objAttr.nodeValue = CStr(i%)                              '::: это добавить
         objNode.Attributes.setNamedItem objAttr
         objRoot.appendChild objNode
         Set currNode = objNode
     Next i%
     objDoc.Save ThisWorkbook.Path & "\11111.xml"
End Sub
                        