Bruglogin admin/user

Hej,

Jeg er ved at lave en lille database, med login password og kode.

Jeg har fået dette til at virke, men den skal også tjekke op på om brugeren er admin eller user, alt efter hvilken form den skal åbne.

Kan I hjælpe mig med dette?

Scriptet ser sådan ud:

Option Compare Database
Private intLogonAttempts As Integer

Private Sub Form_Open(Cancel As Integer)
'On open set focus to combo box
Me.cboEmployee.SetFocus
End Sub

Private Sub cboEmployee_AfterUpdate()
'After selecting user name set focus to password field
Me.txtPassword.SetFocus
End Sub


Private Sub cmdLogin_Click()

'Tjekker om der er tastet et brugernavn i feltet

    If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
            MsgBox "Du skal indtaste et gyldigt brugernavn.", vbOKOnly, "Required Data"
            Me.cboEmployee.SetFocus
        Exit Sub
    End If

'Tjekker om der er tastet en kode i feltet

    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
            MsgBox "Du skal taste et gyldigt kodeord.", vbOKOnly, "Required Data"
            Me.txtPassword.SetFocus
        Exit Sub
    End If

'tjekker om bruger og kode er korrekt

    If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
             
        If Admin = DLookup("Acess", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
      lngMyEmpID = Me.cboEmployee.Value
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "opret"

        Else: lngMyEmpID = Me.cboEmployee.Value
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "søg"
End If
   
Else:
        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If
 
   
' logon forsøg   
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
        MsgBox "You do not have access to this database.  Please contact your system administrator.", vbCritical, "Restricted Access!"
        Application.Quit
    End If
   
End Sub