Data Reader

Galera, olhem o seguinte Código:

Dim cn As New SqlConnection

Dim cm As New SqlCommand

Dim dr As SqlDataReader

cn.ConnectionString = strConn

cn.Open()

cm.Connection = cn

 cm.CommandText = "Select * From Admin where Nom_Adm='" & Login1.UserName & "' and Sen_Adm='" & Login1.Password & "'"

 dr = cm.ExecuteReader()

 If dr.HasRows Then

 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(Login1.UserName, False)

 ** Session("Nome") = dr("Nome")**

 

 e.Authenticated = True

 Else

 Login1.FailureText = "Dados Incorretos!"

 e.Authenticated = False

 End If

 Catch ex As Exception

 Login1.FailureText = ex.Message

 End Try

Preciso pegar o nome da pessoa na tabela que eu valido nesse mesmo script. Preciso pegar o nome pra por aquela velha frase: "Fulano, bem vindo ao conteudo restrito etc e tal"

Como pode ser visto, tentei armazenar o nome na sessão mas não consegui. Nâo sei como recuperar essa informação ou as demais.

Como posso usar o objeto dr que criei pra pegar essa informação alguém sabe?****