Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;UID=root;PWD=password;DATABASE=test;OPTION=3"
objConnection.Open()
objRecordset.CursorLocation = adUseClient
objRecordset.Open "select now() as time1, monthname(curdate()) as m1, monthname(DATE_ADD(curdate(), INTERVAL 1 MONTH)) as m2" , objConnection

If objRecordset.EOF Then 
    Wscript.Echo "Record cannot be found."
Else
    Wscript.Echo "Record found."
    Wscript.Echo objRecordset("time1").value
    strm1 = objRecordSet.Fields("m1")
    Wscript.Echo strm1
    strm2 = objRecordSet.Fields("m2")
    Wscript.Echo strm2
    Wscript.Echo objRecordset("m1").value
    Wscript.Echo objRecordset("m2").value
End If
objRecordset.Close
objConnection.Close