Option Explicit
Const DSN = "Driver={MySQL ODBC 5.1 Driver};Uid=root;Pwd=*****;Server=localhost;Port=****;Database=test;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
Set cnxDatabase = CreateObject("ADODB.Connection")
cnxDatabase.Open(DSN)
Wscript.Echo "Connected"
cnxDatabase.Execute("USE test")
' querying data
strSQL = "SELECT * FROM bug35640 Order by Id DESC LIMIT 50"

Dim rs
Set rs = CreateObject("ADODB.Recordset")
With rs
    .ActiveConnection = cnxDatabase
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .Properties("Update Criteria").Value = 0
    .Open(strSQL)
End With
Wscript.Echo "rs opened"
rs.MoveFirst

rs.AddNew 
rs("Id") = 700000
rs("SomeText") = "blah_blah"
rs.Update

do while not rs.EOF
  If IsNumeric(rs.Fields(0)) then
    if rs("Id").Value = 573906 then
      rs("SomeText") = "Passed here"
      rs.Update
    'else
      'rs.AddNew 
      'rs("SomeText") = "blah_blah"
      'rs.Update
    end if
  end if
  rs.movenext
loop

rs.Close
Set rs = Nothing
Set cnxDatabase = Nothing