Public Function CSVExport(db As DAO.Database, sSQL As String, sDest As String) As Boolean
' #VBIDEUtils#************************************************************
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 25/11/98
' * Time : 15:06
' * Module Name : Database_Module
' * Module Filename : Database.bas
' * Procedure Name : CSVExport
' * Parameters :
' * db As DAO.Database
' * sSQL As String
' * sDest As String
' **********************************************************************
' * Comments : Export sql data to a CSV File
' *
' *
' **********************************************************************

Dim record As Recordset
Dim nI As Long
Dim nJ As Long
Dim nFile As Integer
Dim sTmp As String

On Error GoTo Err_Handler

Set record = db.OpenRecordset(sSQL, DAO.dbOpenDynaset, DAO.dbReadOnly)

' *** Open output file
nFile = FreeFile

Open sDest For Output As #nFile

' *** Export fields name
For nI = 0 To record.Fields.Count - 1
sTmp = "" & (record.Fields(nI).Name)
Write #nFile, sTmp;
Next
Write #nFile,

If record.RecordCount > 0 Then
record.MoveLast
record.MoveFirst

For nI = 1 To record.RecordCount
For nJ = 0 To record.Fields.Count - 1
sTmp = "" & (record.Fields(nJ))
Write #nFile, sTmp;
Next
Write #nFile,
record.MoveNext
Next
End If

Close #nFile
CSVExport = True

Exit Function

Err_Handler:
MsgBox ("Error: " & Err.Description)

CSVExport = False

End Function