Visual Basic数据库登录：管理员和管理员登录

Question

如果登录凭据与数据库匹配，我有此代码可以打开另一个表单。但我不知道如何为经理添加单独的登录。 在数据库中，我创建了一个名为Is / NO的NO列，并且检查了其中一个用户，但似乎无法查找是否已选中并打开其他表单。 有人可以改进我的代码来进行此更改吗？

Public Class LogIn

Public Function Login()
    'Save your database file in U:\My Documents\Visual Studio 2008\Projects\sequenceSelectionRepetition\sequenceSelectionRepetition\bin\debug
    'right-click sequenceSelectionRepetition from solution explorer and select add reference
    'choose COM and choose Microsoft activeX Daba Objects 2.5 Library
    Dim DBConn As New ADODB.Connection
    Dim Users As New ADODB.Recordset
    Dim username As String
    Dim userDB As String
    Dim passDB As String
    Dim userFound As Boolean

    DBConn.Open("Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source = '" & Application.StartupPath & "\Capsule Staff.accdb'")
    Users.Open("Credentials", DBConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

    userFound = False
    username = "ID = '" & txtusername.Text & "'"

    Users.Find(username)
    If Users.BOF = False And Users.EOF = False Then
        userDB = Users.Fields("ID").Value.ToString
        passDB = Users.Fields("Password").Value.ToString

        If userDB <> txtusername.Text Then
            Users.Close()
            DBConn.Close()
            Return False
        Else
            userFound = True
            If passDB = txtpassword.Text Then
                Users.Close()
                DBConn.Close()
                Return True
            Else
                Users.Close()
                DBConn.Close()
                Return False
            End If
        End If
    End If
    'user not found
    Users.Close()
    DBConn.Close()
    Return False
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Login() = True Then
        MessageBox.Show("Manager Login Successful")
        Manager.Show()
        Me.Hide()
        txtusername.Clear()
        txtpassword.Clear()
    ElseIf Login() = True Then
        MessageBox.Show("Login Successful")
        Register.Show()
        Me.Hide()
        txtusername.Clear()
        txtpassword.Clear()
    Else
        MessageBox.Show("ERROR:Unable to Login, refer to user manual for more information")
        txtusername.Clear()
        txtpassword.Clear()
    End If

End Sub

结束班