以下保存为xml.xml文档,入在站点根目录下

<?xml version="1.0" encoding="gb2312"   ?>  
<newdataset>
<allnum>3</allnum>
    
<workflow>  
<title1>测试流程1</title1>  
<Content1>allnum</Content1>  
</workflow>
   
<workflow>  
<title2>测试流程2</title2>  
<Content2>如何用VB.NET编写XML文档[05-20] 浅析.NET下XML数据访问新机制</Content2>  
</workflow>  

<workflow>  
<title3>测试流程3</title3>  
<Content3>在本文的程序中使用到了一些"XmlNodeReader"的属性,譬如"NodeType"属性,用来判断读取得节点是什么类型。</Content3>  
</workflow>  

</newdataset>  

以下新建一个VB工程，在对象窗体中加入三个Label，在代码窗体中加入以下代码：

Private Sub Form_Load()
XMLObject
End Sub
Private Sub XMLObject()
Dim WebURL As String, username As String, password As String

WebURL = "http://127.0.0.1/xml.xml"

Label1.Caption = "正在查询..."

Dim SendStr As String, XMLrandom As String, XMLObject, ReadFileText As String

Set XMLObject = CreateObject("Microsoft.XMLHTTP")
Randomize
XMLrandom = Rnd * Int((300 - 11 + 1) * Rnd + 11)
XMLObject.Open "GET", WebURL + "?&num=" + XMLrandom, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "content-length", Len(SendStr)
XMLObject.send

ReadFileText = StrConv(XMLObject.ResponseBody, vbUnicode)

Label1.Caption = ReadFileText

Set XMLMorntekDocument = CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.Async = False
XMLMorntekDocument.ValidateOnParse = False
XMLMorntekDocument.Load (XMLObject.ResponseXML)

Label1.Caption = XMLMorntekDocument.selectSingleNode("//allnum").Text

Label2.Caption = XMLMorntekDocument.selectSingleNode("//title2").Text

Label3.Caption = XMLMorntekDocument.selectSingleNode("//Content2").Text

Set XMLMorntekDocument = Nothing

Set XMLObject = Nothing

End Sub

Private Sub Label2_Click()

End Sub