Visual Basic - Exportar a XML

Hola a todos

Tengo una duda con respecto a exportar datos de una tabla a xml, resulta que uso una rutina muy simple y me exporta bien la tabla y la puedo recuperar también lo que pasa es que me ordena los campos de la base de datos por orden alfabético y no quiero que haga eso.

la rutina que estoy usando es esta:
para Exportar a XML
Dim rst1 As ADODB.Recordset
Set rst1 = New ADODB.Recordset
Set cnn = New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\datos.MDB"
rst1.Open "EXEC vb_ExpXML", cnn, 1, 3

rst1.Save strXMLFileName, adPersistXML
rst1.Close
Set rst1 = Nothing
End Sub

Para leer el archivo xml
Public Function rstXML(ByVal FullPath As String) As ADODB.Recordset
Dim i As Integer
Set rstXML = New ADODB.Recordset

rstXML.Open FullPath, cnn, adOpenForwardOnly, adLockReadOnly, adCmdFile
For i = 1 To rstXML.Fields.Count - 1
Debug.Print rstXML.Fields(i).Name
Next
End Function

El tema esta en que el fichero xml me ordena los campos de la tabla y al importarlos tendría que buscar cada uno de ellos por separado.
Es posible que no ordene los campos al exportarlos?

Gracias

No es que te ordene los campos cuando los exporta.... la consulta vb_ExpXML ya los debe traer ordenados. Tendrías que modificar la consulta en la BD para que no te los ordene