A prima vista, potresti fare tutto con una UPDATE in un ciclo for

For ...
UPDATE ...
Next
intendi così?
codice:
For i=0 to 20
SQL = "SELECT Ordinati,Scorte FROM TblOrdini where Codice='" & ListCodice.List(i) & "'"
Rs.Open SQL, connectString
SQL = "UPDATE TblOrdini set Ordinati='" & Rs("Ordinati") + ListQuantita.List(i) & "',Scorte='" & Rs("Scorte") - ListQuantita.List(i) & "',ultimoOrdine='" & ora & "' where Codice='" & ListCodice.List(i) & "'"
Cn.Execute SQL
Rs.Close

Next i
in termini di lavoro sul db rimango sempre ad una SELECT per ottenere i dati precedenti e una UPDATE per modificarli..oppure c'è un modo per evitare la SELECT?