实在弄不懂的问题~~~

txtSQL2 = "select * from 零件清单表"
    Set mrc2 = ExecuteSQL(txtSQL2, MsgText2)'这是我定义的一个数据库操作函数
        While (mrc2.EOF = False)
            If Trim(mrc2.Fields(0)) = Trim(DataCombo8.Text) Then '为什么这个地方它不进行判断，直接给我添加数据了？？？？？？？？
                mcr2.Fields(2) = Val(Trim(mrc2.Fields(2))) + Val(Trim(DataCombo9.Text))
                mrc2.Update
                Exit Sub
            Else
                mrc2.MoveNext
                mrc2.AddNew
                mrc2.Fields(0) = Trim(DataCombo8.Text)
                For i = 0 To 10
                    If Text2(i) <> "" Then
                        mrc2.Fields(1) = Val(Trim(mrc2.Fields(1))) + Val(Trim(Text2(i)))
                    End If
                Next
                mrc2.Fields(2) = Trim(DataCombo9.Text)
                mrc2.Fields(3) = Trim(DataCombo7.Text)
                mrc2.Fields(4) = Trim(DataCombo10.Text)
                mrc2.Fields(5) = Trim(DataCombo11.Text)
                mrc2.Update
                mrc2.Close
                Me.Hide
                MsgBox "保存工艺成功！", vbOKOnly + vbExclamation, "保存工艺"
                Exit Sub
            End If
         Wend