ขอโค้ด login ภาษา asp.net แบบผู้ใช้งานสองคน คือ user and admin แล้วก่อลิงค์ ไปคนล่ะหน้า

    Sub btnLogin_Click(sender As Object, e As EventArgs)  
	
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		objConn.ConnectionString = strConnString
		objConn.Open()

		Dim dtAdapter As OleDbDataAdapter
		Dim dt As New DataTable
		strSQL = "SELECT * FROM member WHERE Username = '"& Me.txtUsername.Text &"' AND [Password] = '"& Me.txtPassword.Text &"' "	
		dtAdapter = New OleDbDataAdapter(strSQL, objConn)
		dtAdapter.Fill(dt)

		If dt.Rows.Count > 0 Then
			IF dt.Rows(0)("Status") = "admin" Then
				Response.Redirect("admin.aspx")
			Else
				Response.Redirect("user.aspx")
			End IF
			
		Else	
			Me.pnlLogin.Visible = False
			Me.lblStatus.Visible = True
			Me.lblStatus.Text = "Username/Password is wrong."
		End IF

		objConn.Close()
		objConn = Nothing

    End Sub

Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
        Dim conn As New SqlConnection(MasterClass.ConnStr)
        conn.Open()


        Dim ds As New DataTable
        Dim da As New SqlDataAdapter(" SELECT * FROM Student where student_id = '" & txtStudent_id.Text & _
                                      "' and StudentPassword = '" + txtPassword.Text + "'", conn)

        If ds.Rows.Count > 0 Then
            If ds.Rows(0)("Status") = "admin" Then
                Response.Redirect("Page1.aspx")
            Else
                Response.Redirect("Logout.aspx")
            End If
        End If


        conn.Close()
        conn = Nothing

Code (VB.NET)
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
Dim conn As New SqlConnection(MasterClass.ConnStr)
conn.Open()


Dim ds As New DataTable
Dim da As New SqlDataAdapter(" SELECT * FROM Student where student_id = '" & txtStudent_id.Text & _
"' and StudentPassword = '" + txtPassword.Text + "'", conn)

If ds.Rows.Count > 0 Then
If ds.Rows(0)("Status") = "admin" Then
Response.Redirect("Page1.aspx")
Else
Response.Redirect("Logout.aspx")
End If
End If


conn.Close()
conn = Nothing