Option Explicit
Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=root;Pwd=*****;Server=localhost;Database=test;OPTION=1 + 2" '+ 8 + 32 + 16384 + 8388608

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adOpenUnspecified = -1

Const adUseNone = 1
Const adUseServer = 2
Const adUseClient = 3

Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

Const adInteger=3
Const adDate=7
Const adVarChar=200


Dim cnxDatabase
Dim fld
Dim strSQL


' connecting database
Set cnxDatabase = CreateObject("ADODB.Connection")
cnxDatabase.Open(DSN)
cnxDatabase.Execute("DROP TABLE IF EXISTS bug29631")
cnxDatabase.Execute("CREATE TABLE bug29631 (`f1` char(10) , `f2` char(10),`f3` decimal(3,1),`f4` decimal(3,1),`f5` char(10))")
cnxDatabase.Execute("INSERT INTO bug29631 VALUES('AAAA','BBBB',21.5,22.5,'CCCC')")

' querying data
strSQL = "SELECT * FROM bug29631"

Dim rs
Set rs = CreateObject("ADODB.Recordset")
With rs
    .ActiveConnection = cnxDatabase
    .LockType =  1'3-adLockOptimistic, 1-adLockReadOnly 
    .CursorType = 0 'adOpenStatic 3, adOpenKeyset   1, 2 adOpenDynamic, 0-adOpenForwardOnly
    .CursorLocation = 3 '3 adUseClient '1 adUseServer
    .Open(strSQL)
End With
WScript.Echo  rs(0)
'WScript.Echo rs(0) & "," & _
'             rs(1) & "," & _
'             rs(2) & "," & _
'             rs(3) & "," & _
'             rs(4)

rs.Close
WScript.Echo ("Done")

Set rs = Nothing
Set cnxDatabase = Nothing