为什么appendChild给我运行时错误438（对象不支持此属性或方法）？

Question

我正在使用VBA代码编辑XML文档。我想建立一个新的嵌套元素集，然后使用replaceChild将XML的这一部分替换为一个类似的现有元素。尝试在我的第一个新元素中插入文本节点时出现运行时错误438。

我从网上找到的一个教程示例中复制了这种方法，因此希望它能顺利进行。

我正在尝试构建XML的这一部分：

<ConnectionProperties>
<DataProvider>SQL</DataProvider> 
</ConnectionProperties>

要构建元素：

Dim NewElement As MSXML2.IXMLDOMElement
Dim NewNodeElement As MSXML2.IXMLDOMElement
Dim NewNodeText As MSXML2.IXMLDOMText

Set NewElement = xmlDoc.createNode(1, "ConnectionProperties", xmlNameSpace)

Set NewNodeElement = xmlDoc.createNode(1, "DataProvider", xmlNameSpace)
Set NewNodeText = xmlDoc.createTextNode("SQL")

NewNodeElement.appendChild (NewNodeText)    <--- Get run-time error 438 here

NewElement.appendChild (NewNodeElement)

我在尝试将文本值“ SQL”插入DataProvider标记时遇到运行时错误。

我希望将文本插入到元素中，但出现运行时错误。