Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim doc As XmlDocument = New XmlDocument() doc.Load("c:\sample2.xml") Dim nsmgr1 As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable) nsmgr1.AddNamespace("smpl", "http://www.atmarkit.co.jp/xmlns/sample/shoseki/info") Dim writerNode1 As XmlNode = doc.SelectSingleNode("//smpl:著者[@id='writer302']", nsmgr1) Dim writerNameNode As XmlNode = writerNode1.SelectSingleNode("smpl:名前", nsmgr1) Trace.WriteLine(writerNameNode.InnerText) Dim writerNode2 As XmlNode = doc.SelectSingleNode("//smpl:著者[smpl:名前='森野大樹']", nsmgr1) Dim writerOrgNode As XmlNode = writerNode2.SelectSingleNode("smpl:所属", nsmgr1) Trace.WriteLine(writerOrgNode.InnerText) End Sub