Visual Basic - Muy Urgente.. ADO

Buenas. Tengo el siguiente problema cuando intento ejecutar la sentencia .UPDATE, el mensaje de error es el siguiente:
"El controlador de evento del cliente llamó a un método no reentrante en el proveedor"
No uso componentes ADODC, todo lo controlo por código.

Un saludo y gracias de antemano

Hola, no sé el error, pero por si acaso podrías poner el código.

El código es el siguiente:

Por cierto si quito el If (err <>0) no me da el error y actualiza la base de datos bien

Perdona pero es que soy novato en VB y no se si se debe comprobar los errores despues de un .UPDATE

Public Sub AceptRegister(Record As ADODB.Recordset, Nombre As String)
\'*** Declaración de variables ***
\'*** Código del procedimiento ***
On Error Resume Next
Record.Update \'AQUI DA EL ERROR, EN ESTE PUNTO
If (Err <> 0) Then \'LO DETECTA AQUI
MsgBox BASEDAT04 & Nombre & Chr(13) & Chr(13) _
& Err.Description, vbExclamation, \"ModBasedat(AddRegister)\"
Record.CancelUpdate
Record.MoveLast
AddRegister = False
End If
Err.Clear
On Error GoTo 0
Exit Sub
End Sub

El código esta bien, revisa el código cuando lo añades al recoedset, parece ser que utilizas algún nombre de tabla o campo que no existe.

Gracias, le revisaré todo.