求助，一个链接数据库的问题

Question

Private Sub Command2_Click()
    Dim txtSQL As String
    Call DatabaseOpen   '建立与数据库的连接
        If Trim(Text1.Text) = "" Then
        MsgBox "请输入年级名称！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        Text1.SetFocus
    Else
        '将在年级名文本框内输入的年级名与用户表中的年级名进行比较,判断该年级是否已经存在
        txtSQL = "select * from s_grade "
        cmd.CommandText = txtSQL
        Set mrc = cmd.Execute
        While (mrc.EOF = False)
           If Trim(mrc.Fields(1)) <> Trim(Text1) Then
                MsgBox "年级不存在，请重新输入年级名称！", vbOKOnly + vbExclamation, "警告"
                Text1.SetFocus
                Text1.Text = ""
                Exit Sub
                Else
                mrc.MoveNext
            End If
        Wend
    End If
    txtSQL = "delete from s_grade where 班级名称 = '" & Text1.Text & "'"
            cmd.CommandText = txtSQL
            cmd.Execute
            Me.Hide
            MsgBox "删除班级成功！", vbOKOnly + vbExclamation, "删除班级"
            Unload Me
        Call DatabaseClose  '断开与数据库的连接
End Sub
为什么每次输入班级名称的时候，无论班级存在与否，都返回班级不存在

Answer 1

  '将在年级名文本框内输入的年级名与用户表中的年级名进行比较,判断该年级是否已经存在
  txtSQL = "select * from s_grade where 班级='"& trim(text1.text) &"'"
  cmd.CommandText = txtSQL
  Set mrc = cmd.Execute
  If mrc.recordcount=0 Then
      MsgBox "年级不存在，请重新输入年级名称！", vbOKOnly + vbExclamation, "警告"
      Text1.SetFocus
      Text1.Text = ""
      Exit Sub
  Else
      txtSQL = "delete from s_grade where 班级名称 = '" & Text1.Text & "'"
      cmd.CommandText = txtSQL
      cmd.Execute
      Me.Hide
      MsgBox "删除班级成功！", vbOKOnly + vbExclamation, "删除班级"
      Unload Me
      Call DatabaseClose '断开与数据库的连接
  End Sub