Как заставить нижеуказанный код обновлять записи в таблице mysq?

Dim r1 As Recordset
Dim ws As Workspace
Dim mysql As dao.Connection

Set ws = CreateWorkspace("ws_MySQL", "", "", dbUseODBC)
Set mysql = ws.OpenConnection("Access MySQL", dbDriverComplete, False, Me.connect.Value)

Set r1 = mysql.OpenRecordset("select * " & _
" from base2014.doh_o ; ")

 r1.MoveFirst
 r1.Edit

r1.Fields("m8").Value = 49

r1.Update
r1.Close

Читать по такому коду умеет, если этот код переделать под обновление записей в стороннем mdb файле, то умеет, а в mysql не умеет, хотя и ошибок не выводит.

Заранее благодарен за ответ

http://www.sql.ru/forum/1077101/link-k-mysql