主题：XML格式数据导入出错

参考

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\dianping_list_122366383_117067139.xml")
Dim ndList  = xmlDoc.GetElementsByTagName("item")

For i As Integer = 0 To ndList.count - 1
    For Each cn As object In ndlist(i).ChildNodes
        output.show(cn.name)
    Next
Next

https://msdn.microsoft.com/zh-cn/library/system.xml.xmlelement_members%28v=vs.80%29.aspx