How to export a SQL View to CSV using VBScript

 Option Explicit
 
 Dim strDBPath : strDBPath = "c:\temp\test.mdb"
 Dim strCSVDirPath : strCSVDirPath = "c:\temp\"
 Dim strCSVFileName : strCSVFileName = "CSVExport.csv" 
 Dim strTableName : strTableName = "SomeTable" 
 Dim objConnection : Set objConnection = CreateObject("ADODB.Connection")
 objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
                       "Data Source = " & strDBPath  
 Dim commandstring : commandstring = "SELECT * INTO [text;HDR=Yes;Database=" & _
                                     strCSVDirPath & "]." & strCSVFileName & _
                                     " FROM " & strTableName
 objConnection.Execute commandstring