Membuat form login dengan hak akses vb.net

Assalamu'alaikum

     Saya pernah ada kasus dalam buat program yaitu form login yang saya buat tanpa hak akses, sehingga user yang login akan dapat meng-akses seluruh yang seharusnya tidak. Setelah belajar, googling, dll saya dapat logika nya dan login program saya menggunakan hak akses.

Hak akses program saya ada 3 yaitu :

1. Admin
2. Staff
3. Guest

Pertama-tama kita buat modul dulu untuk hak aksesnya, tanpa modul juga bisa tapi lebih disarankan menggunakan modul agar code teratur dan mudah di repair jika ada kesalahan.

Module ModLogin

Public Sub loginAdmin()

\\buat hak akses anda

End Sub

Public Sub loginStaff()

\\buat hak akses anda

End Sub

Public Sub loginGuest()

\\buat hak akses anda

End Sub

Setelah itu tempatkan code berikut pada form login anda

buka form login anda, double-klick pada button login yang telah anda buat.

i.openConn()
 With i.cmd
         .CommandType = CommandType.Text
        .CommandText = "select * from tblUser where id = '" & tbId.Text & "' and password = '" & tbPassword.Text & "'"
        End With
        i.reader = i.cmd.ExecuteReader
        If i.reader.Read Then
            level = i.reader("level")
            If level = "admin" Then
                loginAdmin()
            ElseIf level = "staff" Then
                loginStaff()
            ElseIf level = "guest" Then
                loginGuest()
            End If
            i.closeConn()
            FrmMenu.Show()
            Me.Hide()
            MsgBox("Login Success", MsgBoxStyle.Information, "security system")
        Else

 i.closeConn()
   MsgBox("ID atau Password salah", MsgBoxStyle.Critical, "Security system")
   tbId.Focus()
   Exit Sub
         End If
 

kira-kira seperti itu, selamat mencoba ^_^