set rs = CurrentDb.OpenRecordset("SELECT codice FROM abbonato WHERE abbonato.Codice = " & Val(Codicet.Text))