كود اخذ قيمة من نتائج البحث

السلام عليكم

لدي جدول مستخدمين مكون من

username,password,name,role

,,وفي الصفحة الرئيسية مربعين اسم المستخدم والرقم السري ليمكن العضو من دخول الموقع بالكود التالي

Dim ocon As New SqlConnection

Dim ocmd As New SqlCommand

Dim Dreader As SqlDataReader

ocon.ConnectionString = ConfigurationManager.ConnectionStrings("crcsqlnewConnectionString2").ToString

ocmd.Connection = ocon

ocmd.CommandType = System.Data.CommandType.Text

ocmd.CommandText = "SELECT * FROM tblCredentials WHERE USERNAME='" + txtuser.Text + "' and PASSWORD='" + txtpass.Text + "'"

ocon.Open()

Dreader = ocmd.ExecuteReader

If Dreader.Read Then

Session("username") = txtuser.Text

FormsAuthentication.RedirectFromLoginPage(txtuser.Text, False)

Else

' Label1.Visible = True

lbltitle.Text = "<b><font color='White' size='3'>تأكد من إسم المستخدم و كلمة المرور</font></b>"

ocon.Close()

Dreader.Close()

ocon = Nothing

End If

السؤال كيف استطيع عمل سيشن للإسم والرول كي استطيع عرض الاسم الكامل في صفحة الترحيب وكذلك اعطاه الصلاحيات المطلوب

آمل من لدية الطريقة افادتي بها او اي طريقة أخرى

متمنى لكم التوفيق،، ولا تنسون الدعاء على رسامين الكاركتير في الدنمرك كشي بسيط في نصرة حبيبنا محمد صلى الله علية وسلم