CSVData = RecordsetToCSV(oRS, True)

    Open "C:\MyFileName.csv" For Binary Access Write As #1
        Put #1, , CSVData
    Close #1

Public Function RecordsetToCSV(oRS, _
        Optional ShowColumnNames As Boolean = True, _
        Optional NULLStr As String = "") As String
    Dim K As Long, RetStr As String
    If ShowColumnNames Then
        For K = 0 To oRS.Fields.Count - 1
            RetStr = RetStr & ",""" & oRS.Fields(K).Name & """"
        Next K
        RetStr = Mid(RetStr, 2) & vbNewLine
    End If
    
    RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)
    RetStr = Left(RetStr, Len(RetStr) - 3)
    
    RecordsetToCSV = RetStr
End Function

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

myRecordset.Save "C:\yourFile.xml", adPersistXML