关于msxml的问题

[chillyzxh]

private Sub InitXMLConfig()
Dim strFunction As String
strFunction = "InitXMLConfig()"
Dim oNode As MSXML2.IXMLDOMNode, dom As New MSXML2.DOMDocument
Dim n$, v$, m$

dom.async = False
dom.Load App.Path & "\" & CONFIGFILE

dicParms.RemoveAll

For Each oNode In dom.documentElement.childNodes
Select Case LCase(Trim(oNode.nodeName))
Case "param"
n = PARMS_PREFIX & UCase(Trim(getAttrVal(oNode, "name", "")))
v = getAttrVal(oNode, "value", "")
If Not dicParms.Exists(n) Then
dicParms.Add n, v
Debug.Print n
End If
End Select
Next
end sub

CONFIGFILE是个已经定义好的文件，例如：aa.xml
在调用这个sub的时候出现错误提示 compeli error: can't find project or libray。
光标停在Trim(oNode.nodeName)这个地方
请问该如何解决这个问题？

[TechnoFantasy]

你需要首先引用Microsoft XML，象你的代码中可以引用用Microsoft XML V2.X

[chillyzxh]

不好意思，忘记说了，Microsoft XML我已经引用了，引用的是Microsoft XML V3.0

[lxcc]

把Trim先去掉!怀疑VB本身有些问题!