问一个简单问题：VB如果循环读取XML文档？

对XML不太了解。比如有如下XML文件：  <?xml version="1.0" encoding="gb2312" ?> 
- <Query>
  <Query_Time>2004-07-27:09:42:09</Query_Time> 
  <Site_No>01</Site_No> 
  <User_Name>aa</User_Name> 
- <Query_Sub>
  <query_id>3047</query_id> 
  <rand_id>11111</rand_id> 
  <visit_no>1</visit_no> 
  <item_no>CRIT</item_no> 
  </Query_Sub>
- <Query_Sub>
  <query_id>3048</query_id> 
  <rand_id>11111</rand_id> 
  <visit_no>1</visit_no> 
  <item_no>CRIT</item_no> 
  </Query_Sub>
- <Query_Sub>
  <query_id>3049</query_id> 
  <rand_id>11115</rand_id> 
  <visit_no>2</visit_no> 
  <item_no>CRIT</item_no> 
  </Query_Sub>
....如何在VB程序中找到 rand_id=3049 的visit_no，item_no等.