[Resolvido] Como obter os valores dos campos de um determinado registr

No código abaixo o usuário entra com seu login e senha e é validadado.Gostaria neste ponto ,capturar todos os dados deste registro, além do login e senha. O banco de dados possui mais 2 campos : permitido (Sim/Não) e nível ( valores 1 ou 2 , sendo que 1 é o administrador e 2 o usuário comum).

Como fazer para recuperar os dados contidos nestes 2 campos?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As New OleDb.OleDbConnection
Dim cm As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Dim usuario As String = txtUsername.Text

Dim senha As String = txtPassword.Text

Try
cn.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")

cn.Open()
cm.Connection = cn
With cm.Parameters
.Add(New OleDb.OleDbParameter("@usuario", usuario))
.Add(New OleDb.OleDbParameter("@senha", senha))
End With

 cm.CommandText = "Select * from admin where ((usuario=@usuario)and (senha=@senha))"
 dr = cm.ExecuteReader()
 If dr.HasRows Then
 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
 Else
 lblMsg.Text = "Usuário ou Senha Incorreta!"
 End If
 Catch ex As Exception
 lblMsg.Text = ex.Message
 End Try

 Session("nome") = usuario
	End Sub