如何筛选XML文件中的内容再传递给DATASET

Dim menuReader As XmlTextReader                  
        Dim menuXmlDoc As XmlDocument                       
        Dim elemList As XmlNodeList                         
        Dim elemMenu As XmlNodeList                         
        Dim elemGoumu As XmlNodeList                        
                Dim listDs As DataSet                               
        Dim menuTable As DataTable                          
        Dim menuRows As DataRow                            
        Dim menuCol As DataColumn                                        listDs = New DataSet
        menuTable = New DataTable("tb")
        menuCol = New DataColumn
        menuCol.ColumnName = "address"
        menuTable.Columns.Add(menuCol)
        menuCol = New DataColumn
        menuCol.ColumnName = "url"
        menuTable.Columns.Add(menuCol)
        listDs.Tables.Add(menuTable)
       
        Try
                       menuReader = New XmlTextReader(Server.MapPath("../xml"))
            menuXmlDoc = New XmlDocument
            menuXmlDoc.Load(menuReader)
            menuReader.Close()
            elemList = menuXmlDoc.GetElementsByTagName("user")
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Exit Sub
        End Try      
        Try
                       menuXmlDoc = New XmlDocument
            menuReader = New XmlTextReader(Server.MapPath("../.xml"))
            menuXmlDoc.Load(menuReader)
            menuReader.Close()
            elemMenu = menuXmlDoc.GetElementsByTagName("menu")
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Exit Sub
        End Try////判断处理        For i = 0 To elemMenu.Count - 1                              If elemMenu(i).Attributes(4).InnerText.Equals(strRole) Then
                menuRows = listDs.Tables(0).NewRow
                menuRows(0) = elemMenu(i).Attributes(1).InnerText
                menuRows(1) = elemMenu(i).InnerText
                listDs.Tables(0).Rows.Add(menuRows)
            End If
        Next