Option Explicit

Const dbDriverNoPrompt = 1
Const dbUseODBC = 1
Const dbOpenForwardOnly = 8
Const dbExecDirect = 2048

Dim SQL
Dim DAO, W, C, R
Dim MysqlHost, MysqlPwd, MysqlUID, MysqlDB
Dim ConnectStr, DriverStr

MysqlHost = ""
MysqlUID  = ""
MysqlPwd  = ""
MysqlDB   = ""

DriverStr = "MySQL ODBC 3.51 Driver"
'DriverStr = "MySQL Connector/ODBC v5"

ConnectStr = "ODBC;SERVER=" & MysqlHost & ";DRIVER=" & DriverStr & ";PWD=" & MysqlPwd & ";DATABASE=" & MysqlDB & ";UID=" & MysqlUID

Set DAO = CreateObject("DAO.DBEngine.36")

Set W = DAO.CreateWorkspace("ODBCDirect", "admin", "", dbUseODBC)

Set C = W.OpenConnection("", dbDriverNoPrompt, False, ConnectStr)

SQL = "SELECT now() as dd"

On Error Resume Next

Set R = C.OpenRecordset(SQL, dbOpenForwardOnly, dbExecDirect)

if Err.Number Then
	On Error GoTo 0
	WScript.echo "Error #" & DAO.Errors(0).Number & vbCr & "Description: " & DAO.Errors(0).Description
	WScript.quit
End If

With R
	Do While Not .EOF
		WScript.Echo .Fields(0).Value
		.MoveNext
	Loop
End With