' Create DOM object
Set poXML = CreateObject("Microsoft.XMLDOM")
  
' Load string
psXML = XML
  
' Load DOM
poXML.loadXML psXML

' Position data nodes
Set poDataNodes = poXML.documentElement.selectNodes("//rs:data")
Set poDataNodes = poDataNodes.Item(0).childnodes

代码说明：

• psXML变量用来存放ADO Recordset 的XML表述。
• PoXML变量是XML DOM对象，用来存放记录集数据。
• PoDataNodes变量保存所有记录集数据行的XML元素。

我们现在有了一个对象，该对象包含了记录集中的所有数据行，它就是我们开始数据导航所需要的东西。我们可以使用XMLRSMoveFirst和XMLRSMoveNext函数进行数据导航。下面让我们仔细考察一下XMLRSMoveNext 函数：

' Check not EOF
If Not XMLRSEOF() Then
  ' Increase pointer
  piRecordPos = piRecordPos + 1
End If

为了理解整个程序逻辑，让我们看看XMLRSEOF函数：

' Check EOF
If piRecordPos > poDataNodes.length - 1 Then XMLRSEOF = True

现在，我们需要知道如何取出实际数据，完成这一工作的是XMLRS：

' Check if field number or field name
If IsNumeric(FieldID) Then
  ' Get Field Data
  XMLRS = poDataNodes(piRecordPos).Attributes(FieldID).Text
Else
  ' Get Field Data
  XMLRS = poDataNodes(piRecordPos).Attributes.getNamedItem(FieldID).Text
End If

正如您所看到的，我们可以提供一个字段名（就像我在窗体代码中所做的）以及一个字段序号

如需了解更多详细信息，我建议您认真阅读完整的示例的代码。

助你上路
您应该仔细分析XMLRS.bas模块，我在此只提供了几个必需的函数。以便您能很快上手。当然，我们还应该实现更多的ADO Recordset功能。因为该模块使用了XML DOM对象，您需要具有一些XML知识。

当然，这并不是一个解决这个问题的“企业级”解决方案。我希望ADOCE能在将来在Recordset（或者类似构造）中加入对XML的支持，这样就不用再使用XMLRS.bas模块了。如果容量发生了变化，只需对我提供的这些代码做一些小的修改即可，从而保护了您的前期投资和工作。

同时，如果您决定在该模块的基础上完成一些开发工作，您可以同我联系。我将利用您完成的增强版本对本文所介绍的示例代码进行升级。这将极大地增加您的知名度！

未来会怎样
我相信，在不远的将来，所有的.NET特性都将在Pocket PC得到应用。其中可能包括类似“连接断开”式ADO Recordsets和XML支持这样一些特性。我甚至相信，将ADO Recordset数据（XML）封装进SOAP调用这一过程对开发人员来说将是透明的。

您可以修改XMLRS.bas以使其适应新的XML数据集结构，您也可以简单地对代码进行升级，使用Recordset功能代替XMLRS中的函数。

小结
从任何地方对企业数据加以访问的能力所蕴藏的能量是异常巨大的。在多层解决方案（带有组件）中，您可以允许您的业务逻辑被世界各地的用户所使用，甚至是那些无线用户。