Hai provato anche a verificare cosa contengono i primi tre caratteri del record 7114?

vett_naz(x) = Left(rs.Fields("citd_alu0"), 3)