dim strUsername as string = HttpContext.Current.User.Identity.Name

'Dichiari il command per fare la query prelevando il ruolo, ad esempio: SELECT role FROM users WHERE username = 'pippo'

'Carichi il nome del ruolo dal command
dim strRole as string = cmdRole.ExecuteScalar()