在做学生信息管理系统的时候遇到了，这样一个问题：不同年级不能添加相同班号，举个具体例子描述—有一、二、三个年级，当一年级添加了1班，2年级就不允许添加一班。其代码为：

Dim mrc As ADODB.Recordset         '用来存放记录集信息

 Dim MsgText As String                '用来返回记录集信息

 Dim txtSQL As String                  '用来存放SQL语句的

 txtSQL = "select * fromclass_info"       'sql 语句查找班级信息

 Set mrc = ExecuteSQL(txtSQL, MsgText)   '找出符合条件的表，并显示出来

 If Not (mrc.EOF And mrc.BOF) Then      '判断是否为最后一条记录或是第一条记录

       mrc.MoveFirst

 End If

 While (mrc.EOF = False)       '当数据库未到最后一条语句时，判断班号是否重复

      If(Trim(mrc.Fields(0)) = Trim(cboClassno.Text)) Then

          MsgBox "班号存在，请重新输入班号！",vbOKOnly + vbExclamation, "警告"

          cboClassno.Text = ""

             cboClassno.SetFocus

          Exit Sub

     Else

           mrc.MoveNext               '移动到下一条记录

     End If

  Wend

   mrc.AddNew                           '把当前的内容如添加到数据库中

 mrc.Fields(0) =Trim(cboClassno.Text)

  mrc.Fields(1) =Trim(cboGrade.Text)

mrc.Fields(2) =Trim(txtDirector.Text)

mrc.Fields(3) =Trim(txtClassroom.Text)

 mrc.Update                            '更新数据库

 mrc.Close                              '关闭数据库

 MsgBox "添加班级信息成功！",vbOKOnly + vbExclamation, "添加班级信息"

        怎