- Assicurati che la condizione di uscita del ciclo
codice:
ElseIf txtCodice = "" Then
si verifichi solo alla fine del file. :quipy:

- Prova anche a dichiarare strRiga come variant così vai sul sicuro!

- Sposta l'apertura del Recordset prima del ciclo, perchè aprire lo stesso record a ogni passaggio???