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

Const adAffectCurrent = 1
Const adAffectGroup = 2
const adAffectAll = 3


Sub Test()
    Dim strSQL, strConn
    Dim conn
    Dim rs
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenStatic
    
    strSQL = "SELECT * FROM ado_test"
        
    strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=*********;PASSWORD=********"

   ' open connection
    conn.Open strConn
    MsgBox "Connection opened!"
	  conn.Execute "DROP TABLE IF EXISTS bug63264"
	  conn.Execute "CREATE TABLE bug63264 (id int)"
	  strSQL = "SELECT T1.id as F1 FROM bug63264 AS T1"
    rs.Open strSQL, conn

    rs.AddNew
    rs("F1") = 10
    
    rs.UpdateBatch(adAffectCurrent)
    
    
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing

End Sub

Test