为什么出现类型不匹配？

Sub x1()
Dim db As Object  '定义db为access对象
Dim rs  As Object  '定义rs为为access对象
Dim bm1 As Field, bm2 As Field   '定义bm1和bm2为字段
Set db = CurrentDb()
Set rs = db.OpenRecordset("学生成绩")  '定义rs为打开表"学生成绩"
Set bm1 = rs.Fields("成绩")  '定义bm1为学生成绩表中成绩字段
Set bm2 = rs.Fields("等级")  '定义bm2为学生成绩表中等级字段
Do While Not rs.EOF()
   rs.Edit     '定义可对表中数据进行编辑
Select Case bm1
       Case Is >= 90
       bm2 = "优秀"
       Case 80 To 90
       rs.等级 = "良好"
       Case 60 To 80
       rs.等级 = "及格"
       Case Else
       rs.等级 = "不及格"
End Select
rs.Update   '定义可对表中数据进行更新
rs.MoveNext   '定义可对表中数据向下移
Loop
End Sub