ช่วยดูให้หน่อยนะค่ะ ไม่เคยใช้เหมือน น้องให้เอามาแก้ให้

Option Explicit On
Imports System.Data 'เรียกใช้คลาสของ ADO.NET
Imports System.Data.SqlClient

Public Class FrmLogin
    Dim key As New Fuction()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
        If TextBoxName.Text = "" Or TextBoxSurname.Text = "" Or TextBoxPassword.Text = "" Then 'ตรวจสอบช่องกรอกชื่อนามสกุลและPasswordว่าว่างหรือป่าว
            MessageBox.Show("กรุณากรอกชื่อ นามสกุล และ Password ให้ครบถ้วน เพื่อเข้าสู่โปรแกรม", "แจ้งเตือน") 'ถ้าตรวจสอบแล้วว่ามีค่าว่างให้มีกล่องข้อความแจ้งเตือน
            TextBoxName.Clear() 'Clear TextBox หลังจากการตรวจสอบ
            TextBoxSurname.Clear()
            TextBoxPassword.Clear()
        Else 'ตรวจสอบในกรณีผู้ใช้กรอกข้อมูลว่าถูกต้องหรือไม
            Dim con As New config() 'เชื่อมต่อ DataBase โดยเรียกใช้ คลาส Config
            Dim conStr As String = con.constring()
            Dim Connection As New SqlConnection(conStr)
            Connection.Open() 'เปิดการเชื่อมต่อกับ DataBase

            Dim sql As String = "SELECT * FROM Employee WHERE Name='" + TextBoxName.Text + "'And Surname ='" + TextBoxSurname.Text + "' And Password='" + TextBoxPassword.Text + "' " 'Query DataBase จากตารางพนักงาน ขึ้นมาตรวจสอบ
            Dim command As New SqlCommand(sql, Connection)

            Dim reader As SqlDataReader = command.ExecuteReader() 'ตรวจสอบ Query 
            Dim Name As String = ""
            Dim Surname As String = ""
            Dim Password As String = ""
            While reader.Read() 'วนลูป While ตวรจสอบ ชื่อ นามสกุล password ใน DataBase
                Name = reader("Name")
                Surname = reader("Surname")
                Password = reader("Password")
            End While
            If Name <> "" Or TextBoxName.Text = "panlan" And TextBoxSurname.Text = "chumsang" And TextBoxPassword.Text = "nakhonswan" Then 'ตรวจสอบดารวนลูปไม่เท่ากับว่างให้ Show FrmMain และกำหนดรหัสผ่านสำหรับ Admin
                FrmMain.Show() 'คำสั่ง Show FrmMain
            Else
                MessageBox.Show("ไม่สามารถเข้าสู่โปรแกรมได้กรุณาตรวจสอบ", "แจ้งแตือน") 'ตรวจสอบกระณีกรอกข้อมูลไม่ถูกต้อง ให้มีกล่องข้อความแจ้งเตือน
                TextBoxName.Clear() 'Clear TextBox หลังจากการตรวจสอบ
                TextBoxSurname.Clear()
                TextBoxPassword.Clear()
                Connection.Close() 'ปิดการเชื่อมต่อกับ DataBase
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
        Dim x As DialogResult = MessageBox.Show("ต้องการออกจากโปรแกรม", "แจ้งเตือน", MessageBoxButtons.OKCancel)
        If x = DialogResult.Cancel Then
            Exit Sub
        Else
            End
        End If
    End Sub

    Private Sub TextBoxName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxName.KeyPress
        If e.Handled = key.chknumberlogin(Asc(e.KeyChar)) Then
            MessageBox.Show("กรุณากรอกซื่อ-นามสกุลเป็นตัวอักษร", "แจ้งเตือน")
        End If
        e.Handled = key.chktext(Asc(e.KeyChar))
    End Sub

    Private Sub TextBoxSurname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxSurname.KeyPress
        If e.Handled = key.chknumberlogin(Asc(e.KeyChar)) Then
            MessageBox.Show("กรุณากรอกซื่อ-นามสกุลเป็นตัวอักษร", "แจ้งเตือน")
        End If
        e.Handled = key.chktext(Asc(e.KeyChar))
    End Sub
End Class

Dim strConn As String
strConn = WebConfigurationManager.ConnectionStrings("con").ConnectionString()
conn.ConnectionString = strConn
conn.Open()

Dim dataset1 As New DataSet
Dim sql As String
sql = "SELECT * FROM DataUser WHERE Username = '" & txtUsername.Text & "' AND Password = '" & txtPassword.Text & "'"
da = New SqlDataAdapter(sql, conn)
da.Fill(dataset1)

For Each Row As DataRow In dataset1.Tables(0).Rows
    Dim per As Integer = Row.Item(6)
       If per = "01" Then
           Response.Redirect("TestForm.aspx")
       End If
       If per = "02" Then
           Response.Redirect("testInsert.aspx")
       End If
Next