Update database MYSQL with VB6

[GERARD LAPORTE]

Hi..I'm trying to replace FireBird by Mysql database. My VB6 programs don't want to update the database . I'm using Mysql V5.1 . I didn't have any problem to load data in the tables with a VB6 program but when trying to update a record I have the message execution error "2147467259(80004005) La mise a jour basee sur une requete a echoué car la ligne a mettre a jour est introuvable"(French version). But the table fields contain the good data . Here is a part of the code :

Set BONMONSQL = New Recordset
result_req = " select * from BONMONTEUR"
BONMONSQL.Open result_req, SQLServer, , adLockOptimistic

If Not BONMONSQL.EOF Then
BONMONSQL.MoveFirst
End If
Do While Not BONMONSQL.EOF

BONMONSQL!DateTransf = Date
BONMONSQL.Update
Loop
Please help