dim Connection_String, SQL_Statement, Output_File_Name
Connection_String = "....."
SQL_Statement ="....."
Output_File_Name = "export.csv"

dim conn, rs, i, fso, fout, field_data
set fso = CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile(Output_File_Name, True)
set conn = CreateObject("ADODB.Connection")
conn.Open Connection_String
set rs = conn.Execute(SQL_Statement)


for i= 0  to rs.Fields.Count- 1 
	if i> 0  then fout.Write ","
	fout.Write rs.Fields(i).Name
next
fout.WriteLine

do while not rs.eof
	for i= 0  to rs.Fields.Count- 1 
		if i> 0  then fout.Write ","
		field_data = trim(""&rs(i))
		if instr(field_data, ",") then field_data = """" & field_data & """"
		fout.Write field_data
	next
	fout.WriteLine
	rs.MoveNext
loop

rs.Close
conn.Close
fout.Close