Visual Basic - Problema con UPDATE

Hola, soy nuevo con ado y estoy haciendo una aplicacion sobre MySQL que me esta volviendo loco. Trato de actualizar un registro de la base de datos, pero al sustituir el nuevo contenido en uno de los campos, me da un error. Sólo me ocurre cuando inserto un texto con un número mayor de carcateres que el original, por ejemplo: sustiruir Ricardo por Pedro.
El error que me da es el siguiente:
Error '-2147217887 (80040e21)' en tiempo de ejecucion: Multiple-step operation generated errors. Check each status value.

Os adjunto el código de actualización para que le echeis un vistazo:

Private Function ActualizarRegistro()
Dim mConn As ADODB.Connection
Dim rs As ADODB.Recordset

'Establecemos la conexión con la la base de datos MySQL
Set mConn = New ADODB.Connection

mConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=192.168.0.1;" _
& "DATABASE=Produccion;" _
& "UID=root;" _
& "PWS=" _
& "OPTION=" & 1 + 2 + 8 + 32 + 16387

mConn.CursorLocation = adUseClient
mConn.Open

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Tabla_Calidades WHERE Id=" & id, mConn, adOpenDynamic, adLockOptimistic

rs.Fields("Densidad").Value = txtDensidad.Text
rs.Fields("Calidad").Value = txtCalidad.Text

rs.Update

rs.Close
mConn.Close

End Function

Os agradecería mucho que me echaseis una mano, porque ya no se me ocurre nada.

Gracias de todas formas.

Un saludo

El recordset debe ser abierto como adBatchOptimistic el cual te permite realizar modificaciones.

lo que pasa es que estas introduciendo un texto mayor al que permite la longitud del campo de la tabla, acorta el texto a la cantidad maxima de caracteres que reciba el campo de tu tabla o cambia el tamaño del campo de la misma, asi terminas tus problemas, va eso espero.
saludos y espero ser de ayuda.