สอบถามเมื่อทำการ Login แล้วให้โชว์ชื่อ นามสกุล ของ User นั้นๆ ASP.NET VB.NET

Dim con As New SqlConnection("Data Source=...... ;Initial Catalog=......;User ID=.....;Password=.........")
        Dim sda As New SqlDataAdapter("SELECT * FROM ตาราง WHERE UserName = '" + txtUser.Text + "' AND Password = '" + txtPassword.Text + "'", con)
        Dim dt As New DataTable()
        sda.Fill(dt)
        If dt.Rows.Count.ToString() = "1" Then
            Session("UserName") = txtUser.Text
            Response.Redirect("Default.aspx")
        Else
            lblResultLogin.Text = "Please check Username or Password !!"
            lblResultLogin.Visible = True
        End If

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("UserName") IsNot Nothing Then
            lblUserName.Text = Session("UserName").ToString()
        Else
            Response.Redirect("Login.aspx")
        End If
    End Sub