VB转换程序：
Public Function DatasetToRecordset(ByVal voNL As IXMLDOMNodeList, ByVal vsTableName As String) As ADODB.Recordset
    
    Dim iXMLTableNode As IXMLDOMNode
    Dim iXMLRecordNode As IXMLDOMNode
    Dim iXMLFieldNode As IXMLDOMNode
    Dim iXMLNodeList As IXMLDOMNodeList
        
    Dim retRS As ADODB.Recordset
    Dim sXPath As String
           
    ' 使用xs schema生成记录集
    sXPath = "//xs:element [@name=""" & vsTableName & """]/xs:complexType/xs:sequence"
    
    Set iXMLTableNode = voNL.Item(1).selectSingleNode(sXPath)
    
        
    Set retRS = New ADODB.Recordset
    
        
    For Each iXMLFieldNode In iXMLTableNode.childNodes
    
    If Not iXMLFieldNode.Attributes Is Nothing Then
    
    Call retRS.Fields.Append(iXMLFieldNode.Attributes(0).Text, GetDataType(iXMLFieldNode.Attributes(1).Text), 512)
    
    End If
    ....................
End Function

在Set iXMLTableNode = voNL.Item(1).selectSingleNode(sXPath)出错，错误信息为：

Reference to undeclared namespace prefix: 'xs'
因为初次接触xml的转换，请xml高手看看，是什么问题？