Summary Very Simple!!! This VB code uses the northwind db to demonstrate how to write SQL directly to XML. It also shows how to call a transform prior to writing the XML to a file.

Additional information

Option Explicit Public Sub Main() 'Define database related variables Dim dbConnection As ADODB.Connection Dim sqlCommand As ADODB.Command Dim rsRecordset As ADODB.Recordset Dim objADOStream Dim sConnectString As String Dim sSQL As String 'Define file related variables Dim XMLFile As String Dim XSLFile As String Dim XMLDoc As New MSXML2.DOMDocument Dim XSLDoc As New MSXML2.DOMDocument Dim FSO As FileSystemObject Dim fFile As TextStream 'Assign values to files XMLFile = "c:\SampleXML.xml" 'XSLFile = "c:\XSLStyleSheet.xsl" 'If using XSL 'Setup database connection sConnectString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB" Set dbConnection = New ADODB.Connection 'Open Database dbConnection.Open sConnectString Set sqlCommand = New ADODB.Command sqlCommand.ActiveConnection = dbConnection 'Build SQL sSQL = "SELECT CompanyName, ContactName, Address, City" & _ " FROM Customers" & _ " WHERE Country = 'USA'" sqlCommand.CommandText = sSQL Set rsRecordset = sqlCommand.Execute() 'Use this if writing straight to xml rsRecordset.Save XMLFile, adPersistXML 'Use this to save recordset to XML stream (to later be translated w/ xsl) 'Set objADOStream = New DOMDocument 'rsRecordset.Save objADOStream, adPersistXML 'Clear db objects rsRecordset.Close dbConnection.Close Set rsRecordset = Nothing Set dbConnection = Nothing Set sqlCommand.ActiveConnection = Nothing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''' The next section is used if XSL file is used to translate ''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Set FSO = CreateObject("Scripting.FileSystemObject") ' Set fFile = FSO.OpenTextFile(XMLFile, ForWriting, True) ' ' 'Indicates whether asynchronous download is permitted. ' XMLDoc.async = False ' XSLDoc.async = False ' ' 'load the XSL stylesheet into the XSL object ' 'XSLDoc.Load (XSLFile) ' ' 'Write XML file using the XSL Stylesheet ' 'fFile.Write objADOStream.transformNode(XSLDoc) ' fFile.Close 'Clear file objects Set XMLDoc = Nothing Set XSLDoc = Nothing Set fFile = Nothing Set FSO = Nothing Set objADOStream = Nothing End Sub