عرض اسم المستخدم بعد تسجيل الدخول

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء لدي البرنامج التالي وهو يعمل الحمدلله بشكل جيد ولكن احببت ان اضيف نقطة بسيطة أرجو أن تساعدوني فيها

البرنامج عبارة عن شاشة تحتوي على رقم المستخدم وكلمة المرور

وشاشة اخرى لتدوين مشاكل الموظف ومن ثم تخزينها في الداتا بيز

ولدي جدولين الاول وهو جدول employee الذي يحتوي على بيانات الموظفين والثاني mashakel وهو يحتوي على رقم الموظف والمشاكل الخاصة بالموظف

والذي احتاجه أني أريد عندما اقوم بتسجيل الدخول

يتم عرض اسم المستخدم في label في صفحة المشاكل

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

يقوم البرنامج بأخذ اسم المستخدم الذي قام بتسجيل الدخول من الداتا بيز وعرضها على الصفحة التي تليها وهي صفحة المشاكل

وهذا هو الكود للبرنامج

Imports System.Data
Imports System.Data.OleDb
Imports System



Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim con As New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + Server.MapPath(".\\App_Data\db1.mdb"))
 Dim emp_da As New OleDbDataAdapter("select * from employee", con)
        Dim emp_ds As New DataSet
        emp_ds.Clear()
        con.Open()
        emp_da.Fill(emp_ds, "employee")
        con.Close()
End Sub

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connection As New OleDbConnection
        Dim cmd As New OleDbCommand
        cmd.Connection = connection
        Try
            connection.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/db1.mdb"))
            connection.Open()
            cmd.CommandText = ("select * from employee where emp_no =@p1 and emp_Password=@p2")

            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@p1", Txtempno.Text.Trim())
            cmd.Parameters.AddWithValue("@p2", Txtpassword.Text.Trim())

            Dim dr As Data.OleDb.OleDbDataReader = cmd.ExecuteReader
            dr.Read()

            If dr.HasRows Then

                Session("emp_no") = Trim(dr("emp_no"))
                Response.Redirect("ProbSum.aspx")

            Else
                Label1.Text = "تأكد من اسم المستخدم وكلمة المرور"
            End If
            dr.Close()
            connection.Close()
        Catch ex As Exception
            Label1.Text = ex.Message

        End Try

End Sub

هذا بالنسبة لكود صفحة تسجيل الدخول

أما بالنسبة لصفحة المشاكل

 Imports System.Data
Imports System.Data.OleDb
Imports System
Partial Class ProbSum
    Inherits System.Web.UI.Page
    Dim con As New Data.OleDb.OleDbConnection
    Dim cmd As New Data.OleDb.OleDbCommand

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        con.ConnectionString = ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + Server.MapPath(".\\App_Data\db1.mdb"))
        cmd.Connection = con
        cmd.CommandText = "insert into mashakel (prob_type,prob_descrp,prob_date,prob_level) values (@emp_type,@emp_descrp,@emp_date,@emp_level)"
        cmd.Parameters.AddWithValue("@emp_type", Me.prob_type.Text)
        cmd.Parameters.AddWithValue("@emp_descrp", Me.prob_descr.Text)
        cmd.Parameters.AddWithValue("@emp_date", Me.prob_date.Text)
        cmd.Parameters.AddWithValue("@emp_level", Me.prob_level.Text)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("sent ok")
End Sub

أرجو منكم أخواني أن تفيدوني وجزاكم الله خيراً