Devo leggere dalla TABELLA1 il codice e descrizione andare sulla TABELLA2 e a parità di codice sostituire le descrizioni.

Quando lancio il codice il comando rs.update mi da il seguente errore:
Informazioni sulla colonna chiave insufficienti. Troppe righe interessate all'aggiornamento.

Viene effettuato il cambio della descrizione del primo codicedella TABELLA1 su tutti i codici uguali della TABELLA2 e poi va in errore. Facendo il debug noto che in un passaggio mi modifica tutti i codici (anche 100 in una volta). Non dovrebbe modificare solo il record corrente?

Ecco il codice:

codice:
...
  rs.CursorLocation = adUseClient
  qstr = "select rascl2 from OTLQRY2_CGSTQ00 where rascl2='" & rec(2) & "'"
        rs.Open qstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          While Not rs.EOF
            rs(0) = rec(3) 'ragsoc
            rs.Update '<-- va in errore qui
            rs.MoveNext
          Wend
...