Intendevo cosi' ...

codice:
For i=0 to 20
  Cn.Execute "UPDATE TblOrdini set Ordinati=Ordinati + " & CStr(ListQuantita.List(i)) & ", Scorte=Scorte - " & Cstr(ListQuantita.List(i)) & ", ultimoOrdine='" & ora & "' WHERE Codice='" & ListCodice.List(i) & "'"
Next i