高分，请各位高手帮忙看一看这是怎么回事？急，在线等候

Question

我用VB写了一个组件（com_xml.dll），该组件包含一个叫CaseSet的类，我要用到的一个函数代码如下：
Public Sub GetRec()
Dim conn As New ADODB.Connection
Dim comd As New ADODB.Command
Dim MyStream As New ADODB.Stream
Dim xml As String
conn.Provider = "sqloledb"
conn.Open "Data Source=(local);Initial Catalog=MYDB;User Id=bill;Password=bill;"
comd.ActiveConnection = conn
MyStream.Open
comd.Properties.Item("Output Stream") = MyStream
comd.CommandText = "select * from DBINFO for xml auto,elements"
comd.Execute , , adExecuteStream
MyStream.Position = 0
xml = MyStream.ReadText
xml = "<RET>" & xml & "</RET>"
MsgBox (xml)
Dim dom
    Dim nodelist As IXMLDOMNodeList
    Dim node As IXMLDOMNode
Dim i, length As Integer
Set dom = CreateObject("Microsoft.XMLDOM")
dom.async = False
dom.loadXML (xml)
Set nodelist = dom.getElementsByTagName("Helpdesk_CaseInfo")
length = nodelist.length
For i = 0 To length - 1
    Set node = nodelist.Item(i)
    MsgBox (node.xml)
Next i
mvarRecCount = length
Set comd = Nothing
conn.Close
Set conn = Nothing
End Sub
在ASP页面中是这样调用的：
<% 
set oCaseSet=server.createobject("com_xml.CaseSet") 
oCaseSet.GetRec
%>
IE打开时，没有任何显示，进度条走了一半后便停了，我搞了很久也没弄好，请各位大虾指点阿