devi passare per un ciclo di for .La cosa che non mi e' chiara e' se te imposti Codice , Lunghezza e quantita'in tre text box e tutti i record che soddisfano le condizioni di codice e quantita verranno modificati.Nel caso in cui nessuna condizione e' soddisfatta verra aggiunto un nuovo record.
Se cosi' fosse prova cosi

Dim i as integer
For i=1 to Numero record del db(credo rsdb.recorcount)
if codice.text = rsDB.Fields(0) then
if lunghezza.text = rsDB.Fields(1) then
rsDB.Fields(2) = (rsDB.Fields(2) + quantità.text)
rsDB.update
else
rsDB.AddNew
rsDB.Fields(0) = codice.text
rsDB.Fields(1) = lunghezza.text
rsDB.Fileds(2) = quantitò.text
rsDB.update
end if
end if
rsdb.movenext
next i