esercizi.text=rsRecordSet.RecordCount