Option Explicit Const DSN = "Driver={MySQL ODBC 3.51 Driver};Uid=root;Pwd=*****;Server=localhost;Database=test;OPTION=" 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 strSQL DIM i ' connecting database Set cnxDatabase = CreateObject("ADODB.Connection") cnxDatabase.Open(DSN) ' querying data strSQL = "SELECT * FROM bug34535" Dim rs Set rs = CreateObject("ADODB.Recordset") With rs .ActiveConnection = cnxDatabase .LockType = 3 .CursorType = 3'1 .CursorLocation = adUseClient .Open(strSQL) End With Wscript.Echo rs("FIELD1") i = CInt(rs("FIELD1"))+1 Wscript.Echo "i is now" Wscript.Echo i WScript.echo _ rs.Fields(0).Name & chr(10) & _ " Type: " & rs.Fields(0).Type & chr(10) & _ " Size: " & rs.Fields(0).DefinedSize & chr(10) & _ " Scale: " & rs.Fields(0).NumericScale & chr(10) & _ " Precision: " & rs.Fields(0).Precision If IsNumeric(rs.Fields(0)) then if rs("FIELD1").Value = 0 then msgbox "Yes" end if end if rs.Close Set rs = Nothing Set cnxDatabase = Nothing