Visual Basic - ERROR RECORDSET ADO

Hola a td@s:
Estoy empezando con ado y al actualizar unos resgistros me da el siguiente error:
"Información de columna clave insuficiente o incorrecta, demasiadas filas afectadas por la actualización"
El código que he manejado es el siguiente:

Ej.

Public cn1 As Connection

Public Sub conex()
Set cn1 = New Connection
With cn1
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "c:\gestion\bg.mdb"
End With
End Sub

Private sub calculos
dim vr as recordset
set vr = new recordset
whit vr
.source="SELECT c1,c2,c3,c4,c5,c6,c7,c8 FROM ta WHERE c8=2 ORDER BY c8"
.activeConnection = cn1
.cursortype =adopenstatic
.cursorlocation =aduseclient
.locktype=adlockoptimistic
end whit
vr.open options:=adcmdtext

do until vr eof
IF vr("c6") <> 0.0 then
vr("c1")=vr("c2")*(100-vr("c3")
else
vr("c1")=vr("c2")
end if
vr.update
vr.movenext
loop
vr.close
set vr=nothing
cn1.close
set cn1= nothing
end sub

La verdad es que es la primera cosa que hago en esto y me encuentro un poco despistado,
agradecería cualquier ayuda al respecto.

Estas comparando si la columna 6 es diferente de 0, y luego de acuerdo al if tu estas asignando nuevos valores...

y luego pones

vr.update

update solo se pone luego de ADDNEW, luego de agregar un nuevo registro, tu no estas agregando nada, solo estas cambiando valores.

debes quitar al vr.update segun mi punto de vista.

Gracias por tu contestación, pero entonces para modificar un registro
si no es con Update con qué instrucción se modifica?.
Por otra parte es una cosa muy rara, pueso he probado primero con un campo, luego he ido añadiendo más campos y hasta un número determinado de ellos, no recuedo si hasta el sexto o séptimo, funciona bién y es a partir de un de un añadido cuando da el error y como cosa más extraña, tratando de comprender el error que dá, si sustituyes los campos por el * ya no da error.
Saludos.