LISTING 1: VB Code to Select First Two Customer Records 

Dim rsXML As New ADODB.Recordset
Dim sSQL As String, sConn As String

sSQL = "SELECT TOP 5 customerid, companyname, contactname FROM customers"
sConn = "Provider=SQLOLEDB;Trusted_Connection=Yes;
	Data Source=myDB;Initial Catalog=Northwind;"
rsXML.Open sSQL, sConn
rsXML.Save "result.xml", adPersistXML