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