vb 操作xml '91'错误

[OICQshenshi]

xml文件内容如下：
<?xml version= "1.0 " encoding= "gb2312 "?>
<集合>
<子集>
<名称> 张三 </名称>
<奖金> 5000 </奖金>
</子集>
<子集>
<名称> 李四 </名称>
<奖金> 4400 </奖金>
</子集>
</集合>

Private Sub Form_Load()
Dim xml As DOMDocument
Set xml = New DOMDocument
Dim root As IXMLDOMNode
Set root = xml.documentElement
Dim node As IXMLDOMNode

xml.async = False
Call xml.Load(App.Path & "\Program.xml ")

Set node = root.selectSingleNode( "李四 ")
MsgBox node.Text

End Sub

最终目的:msgbox出李四的奖金.

异常为:执行到 "Set node = root.selectSingleNode( "李四 ") "这行时,出现 实时错误 '91 '，对象变量或with块变量未设置，请教怎么改啊？

[hejunbin]

root.selectSingleNode( "名称[text='李四'] ")

[OICQshenshi]

set node = root.selectSingleNode( "名称[text= '李四 '] ")
试过了，但还是报'91'错误

[OICQshenshi]

好像出在root上的未知问题

[OICQshenshi]

把
Dim root As IXMLDOMNode
Set root = xml.documentElement
放到
Call xml.Load(App.Path & "\Program.xml ")
之后却能通过
set node = root.selectSingleNode( "名称[text= '李四 '] ")，

但是
MsgBox node.Text
又出现'91'错误了,昏死，怎么搞得阿，老出现'91'错误,什么原因啊？

[OICQshenshi]

顶

[Tiger_Zhao]

写程序技术可以学，粗心太要不得了。
来接分了。

[hejunbin]

root.selectSingleNode( "//名称[text= '李四 '] ")

这样呢

[cds27]

Private Sub Form_Load()
Dim xml As DOMDocument
Set xml = New DOMDocument
Dim root As IXMLDOMNode
Dim node As IXMLDOMNode

xml.async = False
Call xml.Load(App.Path & "\Program.xml ")
Set root = xml.documentElement '这句放到这个位置.

Set node = root.selectSingleNode("//名称[text()='李四']") 'text要跟上()
MsgBox node.Text

End Sub

[OICQshenshi]

已搞定3Q
http://topic.csdn.net/u/20071101/19/81226300-235b-4a56-ace0-1bc3cc04e4f8.html

[hejunbin]

哈哈，是我学习不认真，认错O.o