Dim arg
Set arg = WScript.Arguments
If Arg.Count < 3 Then
    WScript.Quit
End If

Dim obj,wks,dbs,rs,fs,txt
mdb=arg(0)
sql=arg(1)
csv=arg(2)

Set obj = Wscript.CreateObject("DAO.DBengine.36") 
Set wks = obj.Workspaces(0)
Set dbs = wks.OpenDatabase(mdb)
SQLQuery = sql
Set rs = dbs.OpenRecordset(SQLQuery, 2)

Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set txt = fs.OpenTextFile(csv, 2, True)

If Not rs.EOF Then
    If Arg.Count > 3 Then
        data = ""
        fld = ""
        For j=0 To rs.Fields.Count -1
            fld = rs(j).Name
            If j = 0 Then
                data = """" & fld & """"
            Else
                data = data & "," & """" & fld & """"
            End If
        Next
       'WScript.Echo data
        txt.WriteLine data
    End If
    Do While Not rs.EOF
        data = ""
        fld = ""
        For j=0 To rs.Fields.Count -1
            fld = rs(j)
            If Not IsNull(fld) Then
                fld = Replace(rs(j), chr(13) & chr(10), chr(10))
            End If
            If j = 0 Then
                data = """" & fld & """"
            Else
                data = data & "," & """" & fld & """"
            End If
        Next
       'WScript.Echo data
        txt.WriteLine data
        rs.MoveNext
    Loop
End If

txt.Close
rs.Close
dbs.Close