dim strRuolo as string = 'carica dati da db

'Imposta il nuovo utente passando l'array di un solo elemento
HttpContext.Current.User = new System.Security.Principal.GenericPrincipal(id,new String() { strRuolo });