ช่วยดู Code Login ให้หน่อยค่ะ ล็อคอินไม่ได้เลย ขอบคุณมากค่ะ

Public Function CustomerLogIn(ByVal Username As String, ByVal Password As String) As Boolean
        Sql = "Select * From TblPersonel Where Username= " + "'" + Username + "'" + " And  Password= " + "'" + Password + "'"
        '//กำหนด Sqlสำหรับอ่านข้อมูล
        Ad = New SqlDataAdapter(Sql, Conn) '///ประมวลผลคำสั่งอ่านข้อมูล
        Ad.Fill(Ds, "Table1") '///นำข้อมูลที่อ่านข้อมูลได้ไปให้กับDsแบบดาต้าเซต
        DView = Ds.Tables("Table1").DefaultView '///นำข้อมูลในDsแบบดาต้าเซตไปให้ดาต้าวิว
        If DView.Count > 0 Then '////ถ้า DView.Count มีค่ามากกว่า 0 แสดงว่ามีข้อมูลรหัสนั้นๆ แล้ว
            Dim DRowView As DataRowView '////กำหนดตัวแปรแบบบ DataRowview เพื่ออ่านข้อมูลที่ละรายการ
            For Each DRowView In DView '////วนรอบอ่านข้อมูลจาก Dview ทีละรายการไปให้ DataRowview ถ้าอ่านไม่ได้ออกจากลูป
                Session.Contents("Username") = DRowView.Item("Username")
                Session.Contents("Password") = DRowView.Item("Password")
                '//สร้างตัวแปรแบบ Session พร้อมนำค่าที่อ่านให้ค่ากับSession
                Session.Contents("Id") = DRowView.Item("Pe_Id").ToString  '//สร้างตัวแปรแบบ Session พร้อมนำค่าที่อ่านให้ค่ากับSession
     
                Session.Contents("Name") = DRowView.Item("Pe_name").ToString
                Session.Contents("Position") = DRowView.Item("Pe_Position").ToString
                Session.Contents("pKind") = DRowView.Item("Kind").ToString
                Session.Contents("pFlag") = DRowView.Item("Flag").ToString

                Return True '///ส่ง true ค่ากลับให้กับฟั่งชั่น เพื่อส่งไปยังโปรแกรมที่เรียกใช้
            Next
        Else
            Return False '///ส่งFalseค่ากลับให้กับฟั่งชั่น เพื่อส่งไปยังโปรแกรมที่เรียกใช้
        End If
    End Function

Dim Username As String = Request.Form("TxtUsername")
Dim Password As String = Request.Form("TxtPWD")

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BtnLogOut.Attributes.Add("OnClick", "javascript:if(confirm('คุณต้องการออกจากระบบ หรือไม่?')==false)return false;")
        'Response.Redirect("Welcome.aspx")
        Service.TestSession() '//เรียกใช้โปรแกรม TestSession เพื่อตรวจสอบตัวแปรSessionของ Username ที่ล็อกอิน


    End Sub

    Protected Sub BtnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnLogin.Click
        'Dim Username As String = Request.Form("TxtUsername")
        'Dim Password As String = Request.Form("TxtPWD")
        Dim Username As String = TxtUsername.Text
        Dim Password As String = TxtPWD.Text
        'Dim Kind As String = "SELECT * FROM TblPersonel WHERE Kind = '" & strPeID & "' "
        Dim Service As New WebService1                      ''//กำหนดตัวแปรประเภท Service1
        LMsg.Visible = True

        If Service.CustomerLogIn(Username, Password) Then ''//เรียกใช้โปรแกรมย่อยชื่อCustomerLogIn พร้อมส่งรายการกิจกรรมในวงเล็บ
            'LMsg.Text = "เพิ่มข้อมูลการ Login ใน logFile"
            'Service.AddLogFile("Admin LogIn", "-", "-")
            BtnLogin.Visible = False
            BtnLogOut.Visible = True
            TreeView1.Visible = True
            Panel.Visible = False
            LMsg.Visible = True
            LMsg.Text = Session.Contents("Name")
        Else
        MsgBox("ไม่สามารถ LogIn ได้  กรุณาใส่ Username และ Password ใหม่")
        clear()
        End If
    End Sub

    Protected Sub clear()
        TxtUsername.Text = ""
        TxtPWD.Text = ""
    End Sub



    Protected Sub TreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TreeView1.SelectedNodeChanged

    End Sub

    Protected Sub BtnLogOut_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnLogOut.Click
        Session.Abandon()
        Response.Redirect("Homepage.aspx")

    End Sub