主要是中间fpdata部分,那是从一个表中取出的数据,=号前面是字段名,后面是数值,我生成的东西老是<fpdata>tablename=...... </fpdata>,与目标不一致,请大侠们相助

我的代码是这样的,还只是个初步的东西
    Dim file1 As Scripting.FileSystemObject
    Set file1 = New Scripting.FileSystemObject    '一个文件对象
    Dim Stream As TextStream                '一个文本流
    Dim xmlDoc As MSXML2.DOMDocument
    Dim rs1 As New adodb.Recordset          ''用来读取发票子表
    Dim StrforWrite As String
    Set xmlDoc = New MSXML2.DOMDocument
    
    xmlDoc.validateOnParse = False
    xmlDoc.async = False
    
    ''开始打开文件
    file1.CreateTextFile filename, True
    'Set filewsz = Nothing
    Set Stream = file1.OpenTextFile(filename, ForWriting)
    ''写入第一条
    ''写入xml头
    StrforWrite = "<?xml version=""1.0"" encoding=""GB2312""?>"
    Stream.WriteLine StrforWrite
    ''写入根结点信息
    StrforWrite = "<dskpmis version=""1.0"" slversion=""1.0""  jgbm=""" + glbswjgbm + "0001" + """ jgmc=""" + glbswjgmc + """><table><fptable fptable=""T265018"">税务机关代开统一发票</fptable></table>"
    Stream.WriteLine StrforWrite
    ''开始写记录了
    ''要分两步,一步是从一体票_导出为xml文件中取记录,一步是从税务机关_发票代开子表中取记录
    Dim Nodename(100) As String
    Dim Nodevalue(100) As String
    Dim datatext As String
    datatext = ""
    Dim onode As Object
    Set root = xmlDoc.createNode(1, "data", "")
    Set temp = xmlDoc.appendChild(root)
    Do While Not rs.EOF
            'Set root = xmlDoc.createNode(1, "data", "")
            'Set temp = xmlDoc.appendChild(root)
            
            Set onode = xmlDoc.createNode("element", "fpdata", "")
            
                datatext = "&It"
                For i = 0 To rs.Fields.Count - 1
                
                    'Set Child = xmlDoc.createNode("element", rs.Fields(i).name, "")
                    Nodename(i) = rs.Fields(i).name
                    If Not IsNull(rs.Fields(i)) Then
                        Nodevalue(i) = rs.Fields(i)
                    Else
                        Nodevalue(i) = ""
                    End If
                    datatext = datatext + Nodename(i) + "=" + """" + Nodevalue(i) + """" + " "
                    
                                     
   
                Next i
                onode.Text = datatext + "" + vbCrLf
                Set temp = root.appendChild(onode)
       
            rs.MoveNext
    Loop
                    rstoxml = root.xml

            Stream.WriteLine rstoxml
            xmlDoc.removeChild (root)

    rs.Close
    Set rs = Nothing