Ma te lo stampa per tutti i casi possibili?
Anche 01 e 02?

Ma non puoi fare:

codice:
IstNome = cstr(rs("IdIstituto"))

select case cstr(IstNome)
   case "01"
      IstNome = "Primo istituto"
   case "02"
      IstNome = "Secondo istituto"
   case "03"
      IstNome = "Terzo istituto"
   .....
   case "07"
      IstNome = "Settimo istituto"
end select