Ciao Luca.
Potresti modificare il tuo codice così:
dim Pr as boolean=Boolean.Parse(myReader2.Item("permission_read") .tostring)
dim Pi as boolean=Boolean.Parse(myReader2.Item("permission_insert") .tostring)
dim Pu as boolean=Boolean.Parse(myReader2.Item("permission_update") .tostring)
dim Pd as boolean=Boolean.Parse(myReader2.Item("permission_delete") .tostring)
bImpostazioni.Visible = Pr or Pi or Pu or Pd
Facci sapere....
Ciao