Option Explicit Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=root;Pwd=root;Server=localhost;Database=extest;OPTION=" 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 strSQL DIM i ' connecting database Wscript.Echo "Connecting..." Set cnxDatabase = CreateObject("ADODB.Connection") cnxDatabase.Open(DSN) Wscript.Echo "Deleting old rows..." cnxDatabase.Execute("DELETE FROM bug35640 WHERE id = 700000") Wscript.Echo "Opening recordset..." Dim rs Set rs = CreateObject("ADODB.Recordset") With rs .ActiveConnection = cnxDatabase .LockType = adLockOptimistic .CursorType = adOpenDynamic .CursorLocation = adUseServer .Open("SELECT * FROM bug35640 Order by Id DESC LIMIT 50") End With rs.MoveFirst Wscript.Echo "Inserting..." rs.AddNew rs("Id") = 700000 rs("SomeText") = "blah_blah" rs.Update Wscript.Echo "Updating..." rs("SomeText") = "blah_blah_2" rs.Update Wscript.Echo "Closing..." rs.Close Set rs = Nothing Set cnxDatabase = Nothing