set rs = CurrentDb.OpenRecordset("SELECT codice FROM abbonato WHERE abbonato.Codice = " & Val(Codicet.Text))
set rs = CurrentDb.OpenRecordset("SELECT codice FROM abbonato WHERE abbonato.Codice = " & Val(Codicet.Text))
No MP tecnici (non rispondo nemmeno!), usa il forum.