output SQL result to CSV file

[mp_direct]

Hi all i have the following code in my VB6 program.

My program asks for a date then runs the following query.

e.g.
SELECT * from table ORDERS where DateCreated = 28/06/06.

How could i output the result to a CSV file?

Thanks

[pclement]

Dim cnn As New ADODB.Connection
Dim strSQL As String

cnn.Open _
   "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=e:\My Documents\DB1.mdb;" 

strSQL = "SELECT * INTO [Text;DATABASE=e:\My Documents\TextFiles].[Orders.csv] FROM [Orders] WHERE DateCreated = #06/06/2006#"

cnn.Execute strSQL

cnn.Close