salve a tutti

come da codice in allegato:
http://www.dotnethell.it/users/files/886_provaLogin.zip

come da allegato non riesco ad effettuare l'autenticazione dell'utente
mi si ferma su " Dim ID As FormsIdentity = CType(HttpContext.Current.User.Identity, FormsIdentity)"
l'erore è invalid cast exception


cosa potrebbe essere dovuto?