Listing A: Loading Results into DOM Document

Dim oSQL
Dim oDOMDoc
Set oSQL = CreateObject("Microsoft.SQLXMLRequest")
oSQL.Connection = "driver=SQL Server;server=someserver;uid=pubsuser;password=pass”
oSQL.ExecuteQuery("Select * from jobs for XML RAW")
oDOMDoc.loadXML oSQL.Result