An Easy Way To Create An XML File From A Query?

Is there a relatively easy way to output the results of a query to an XML file?

I have the file writer set up more or less:
Code: Dim intFn As Integer Dim strFilePath As String Dim strOutBuf As String strFilePath = "c: emp est.xml" intFn = FreeFile Open strFilePath For Binary Access Write As #intFn strOutBuf = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " standalone=" _ & Chr(34) & "yes" & Chr(34) & "?>" & vbCrLf strOutBuf = strOutBuf & "<file>" & vbCrLf 'DO FOR EACH LOOP HERE strOutBuf = strOutBuf & "</file>" Put #intFn, , strOutBuf Close #intFn
If this were a C or JAVA application, I would just write a "for each" statement similar to as follows:

Code:For Each (Row in Query){ strOutBuf = strOutBuf & "<entry>" & vbCrLf For Each (Field in Row){ strOutBuf = strOutBuf & "<" & (Column Name) & ">" & (Value) _ & "</" & (Column Name) + ">" & vbCrLf } strOutBuf = strOutBuf & "</entry>" & vbCrLf}
What commands would I use in Access to get each separate row in a query? And then to get each field in that row? And how about the column names for the XML tags?

Thank you for your help.