escribir un XML

hola

necesito pasar el contenido de un select en formato XML a un archivo el
select es el siguiente

select version,numero_oc,tipo_oc from roc for XML AUTO, ELEMENTS

he tratado de varias formas aún no consigo pasarlo, encontré un script
Activex pero el problema es que necesito borrar los encabezados pero tampoco
logro hacerlo

Function Main()
Dim oCmd, sSQL, oDom
Set oDom = CreateObject("Microsoft.XMLDOM")
Set oCmd = CreateObject("ADODB.Command")

oCmd.ActiveConnection ="Provider=SQLOLEDB.1;Data Source=proyhub; Initial
Catalog=AUTOCOR;user id = 'sa';password='sa'"

sSQL = "<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'><sql:query>
select version,numero_oc,tipo_oc from roc for XML AUTO, ELEMENTS
</sql:query></ROOT>"
'sSQL = " select Archivo,procesado from documentos for xml auto, ELEMENTS"
'msgbox oCmd.execute(sSQL)
oCmd.CommandText = sSQL
oCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"
oCmd.Properties("Output Stream") = oDom
oCmd.Execute , , 1024
oDom.Save "c:\denis.xml"
Main = DTSTaskExecResult_Success

End Function


necesito que el acrchivo generado quede mas o menos asi

<roc>
<cabecera>
<version>1 </version>
<numero_oc>4500200000</numero_oc>
<tipo_oc>Z005 </tipo_oc>
</cabecera>
<cabecera>
<version>1 </version>
<numero_oc>9999 </numero_oc>
<tipo_oc>D </tipo_oc>
</cabecera>
</roc>

ojalá alguien me pueda ayudar