VBA设置窗体下拉框的选择权限，但是总执行第一个if语句求大神帮忙

伊丽莲蒙娜

1. Private Sub cmdAdd_Click()
   
2.    Sheet10.Activate
   
3.    clear
   
4.     Dim banji As String
   
5.     banji = ComboBox1.Text
   
6.     Dim kemu  As String
   
7.     kemu = ComboBox2.Text
   
8.     If ComboBox1.Text <> "4" Or ComboBox1.Text <> "5" Or ComboBox1.Text <> "6" Then
   
9.        MsgBox "超出权限，您只能为您负责的4、5、6班录入成绩！"
   
10.        Me.ComboBox1.Text = ""
    
11.         Me.ComboBox2.Text = ""
    
12.         Else
    
13.         If checkStudentClass(ComboBox1.Text, ComboBox2.Text) Then
    
14.                 Sheet10.Visible = xlSheetVisible
    
15.                 Unload Me
    
16.                 Range("F2") = banji
    
17.                 Range("G2") = kemu
    
18.                 Call 查询班级
    
19.             Else
    
20.             MsgBox "请选择完整信息"
    
21.             Me.ComboBox1.Text = ""
    
22.         Me.ComboBox2.Text = ""
    
23.             Exit Sub
    
24.         End If
    
25.      
    
26.       End If
    
27. Application.Visible = True
    
28. Unload Me
    
29. 
    
30. End Sub

复制代码

想设置一个权限，128106只能选择1、2、3班级，128107只能选择4、 5、6班级，也就是不能超过下窗体拉框内文本的范围，我自己写了一个，但是不管输入什么都只执行第一个if，后面的出不来，拜托大神看一下

【选择管理员登录，用户名和密码：都是teacher ，128106和128107是教师用户密码也是128106 或者128107】