参考代码
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\test.xml")
Dim ndList = xmlDoc.GetElementsByTagName("PLANT")
For i As Integer = 0 To ndList.count - 1
Dim COMMON As String = ndList(i).Item("COMMON").InnerText
Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
Dim ZONE As String = ndList(i).Item("ZONE").InnerText
output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next