获取XML指定节点下的所有内容

[cexodgv]

如题：见下图，怎样获取指定的xml节点下的所有内容，并以表格形式显示出来
xml文档中有list1与list2这二个节点，我现在只想获取list1下面的二条记录，并在表格控件中显示出来，怎么做？（图中表格中的控件的内容，为了说明效果，手动强制添加进去的，不是通过XML文件中读取的）





以下为xml文档内容：

<?xml version="1.0" encoding="UTF-8" ?>
- <mkryxx>
<state>y</state>
<result />
- <list1>
- <item id="1">
<xm>李丽丽A</xm>
<sfzh>532526271986030301A</sfzh>
<xb>女A</xb>
<csrq>1986-3-3 0:00:00A</csrq>
<lxdh>A</lxdh>
<xxdz>A</xxdz>
</item>
- <item id="2">
<xm>王丽红</xm>
<sfzh>532526271986030301A</sfzh>
<xb>女A1</xb>
<csrq>1986-3-3 0:00:00A1</csrq>
<lxdh>A1</lxdh>
<xxdz>A1</xxdz>
</item>
</list1>
- <list2>
- <item id="1">
<xm>张江</xm>
<sfzh>532526271986030301B1</sfzh>
<xb>女</xb>
<csrq>1986-3-3 0:00:00B1</csrq>
<lxdh>B1</lxdh>
<xxdz>B1</xxdz>
</item>
- <item id="2">
<xm>孙健</xm>
<sfzh>532526271986030301B2</sfzh>
<xb>女B2</xb>
<csrq>1986-3-3 0:00:00B2</csrq>
<lxdh>B2</lxdh>
<xxdz>B2</xxdz>
</item>
</list2>
</mkryxx>

[cexodgv]

对我有用，谢谢！

[蓝天630902]

Sub Command1_Click()
    Set Dom = CreateObject("Microsoft.XMLDOM")
    Dom.async = False
    Dom.Load "C:\Documents and Settings\Administrator\桌面\a.xml"
    Set Node = Dom.SelectSingleNode("mkryxx").SelectSingleNode("list1").ChildNodes(1)
    For Each x In Node.ChildNodes
        Debug.Print x.Text
    Next
End Sub