if statment or case statment?

 If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
 
        lngMyEmpID = Me.cboEmployee.Value
        Select Case cboEmployee
   Case "Admin"
DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "Main Page Navigation Form"
Case "Other"
 DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "Main Page Navigation Form User"
End Select
        Else
        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If
 
'If User Enters incorrect password 3 times database will shutdown
 
    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

    Static intLogonAttempts As Integer

    If Me.txtPassword.value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.value) Then
        lngMyEmpID = Me.cboEmployee.value
        With DoCmd
            Select Case cboEmployee
            Case "Admin"
                .OpenForm "Main Page Navigation Form"
            Case "Other"
                DoCmd.OpenForm "Main Page Navigation Form User"
            Case "Admin", "Other"
                .Close acForm, Me.Name, acSaveNo
            End Select
        End With
    Else
        'If User Enters incorrect password 3 times database will shutdown
        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
        Else
            MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
            Me.txtPassword.SetFocus
        End If
    End If
 
End Sub

Select Case cboEmployee

Select Case cboEmployee.Column(1)