Chiedo scusa per la poca chiarezza, spero di averlo sistemato a dovere

Non posso fare il movefirst o last, poichè io procedo cosi
L'utente inserisce il codice in codice.text
quindi
codice:
' cs e rs sono adodb.connection e recordset già collegati
query = "Select quantita from prod where codice = '" & codice.text & "'"
set rs = cs.execute(query)
qta = rs.fields("quantita").value
Sull'ultima riga mi da l'errore
Se leggi il post sopra, l'errore è provocato quando non riempio tutti i textbox