VB写ASP组件问题：调用XML出错

Question

原代码如下：
Public Function XMLstr()
Dim str
Dim objXML As New MSXML2.DOMDocument30
Dim Tableslist
XMLPath = App.Path + "\" + "ttxml.xml"
Call objXML.Load(XMLPath)
        Set Tableslist = objXML.getElementsByTagName("Talbe")
        str = ""
        For i = 0 To Tableslist.length
            str = str & Tableslist.Item(i).Text & "<br>"
        Next
        XMLstr = str
End Function出错提示如下：Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 hu6Scripting 错误 '800a005b' 未设置对象变量或 With block 变量 /dlltest/XMLHU/hinavy.asp，行18

Answer 1

UP!请大哥们也来看一下!
VB写SAP组件，这个方法好，可是不会！

Answer 2

看看Tableslist是不是为空的或者没有text