อยากทราบวิธีทำ Admin user อ่ะครับ เป็นการแบ่งสิทธิ์ ภาษา .NET

<% int i = Convert.ToInt32(Session["Type"]);
		
		if (i == 1) {%>

<% }  else {%>

<script type="text/javascript" language="javascript">
			alert("คุณไม่สามารถเข้าใช้ได้");
			document.location.href = "/Home.aspx";
		</script>
	<% } %>

<%@ Page Language="VB" %>
<script runat="server">

    Sub Page_Load(sender As Object, e As EventArgs)
		IF Session("strUser") = "" Then
			Response.Redirect("Login.aspx")
			Response.End
		Else
			Me.lblStatus.Text = "Welcome [" & Session("strUser") & "]"
		End IF
    End Sub

</script>

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Partial Class login
    Inherits System.Web.UI.Page

    Protected Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim username As String
        Dim pwd As String
        Dim status As Integer

        username = Login1.UserName
        pwd = Login1.Password
        Dim myConn As String
        myConn = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\www\WebSite1\App_Data\database\mydb.mdf;Integrated Security=True;User Instance=True"

        Dim Conn As New SqlConnection(myConn)
        Conn.Open()

        Dim sqlUserName As String
        sqlUserName = "SELECT UserName,PassWord,status FROM ""Member"" "
        sqlUserName &= "WHERE(UserName=@UserName)"
        sqlUserName &= "AND(Password=@Password)"
        sqlUserName &= "AND(status=@status)"

        Dim com As New SqlCommand(sqlUserName, Conn)
        com.Parameters.AddWithValue("@UserName", username)
        com.Parameters.AddWithValue("@Password", pwd)
        com.Parameters.AddWithValue("@status", status)

        Dim CurrentName As String
        CurrentName = CStr(com.ExecuteScalar)
        If status = 1 Then
            Session("UserAuthentication") = username
            Session.Timeout = 1
            Response.Redirect("loginStatus.aspx")
        Else
            Session("UserAuthentication") = username
            Response.Redirect("Product.aspx")
        End If


    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If CBool(Session("UserAuthentication")) Then
            Response.Redirect("login.aspx")
        End If
    End Sub
End Class

		Dim objConn As New MySql.Data.MySqlClient.MySqlConnection
		Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand
		Dim dtAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter
       
		Dim ds As New DataSet
		Dim dt As DataTable
		Dim strConnString,strSQL As String

		strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
		strSQL = "SELECT * FROM customer"

		objConn.ConnectionString = strConnString
		With objCmd
			.Connection = objConn
			.CommandText = strSQL			
			.CommandType = CommandType.Text
		End With
		dtAdapter.SelectCommand = objCmd

		dtAdapter.Fill(ds)		
		dt = ds.Tables(0)

		dtAdapter = Nothing
		objConn.Close()
		objConn = Nothing

		IF dt.Rows(0).("Status") = 1 Then

		Else

		End IF