帮助我分析这个错误！

Question

在做一个添加过程的时候，提示说“多步操作产生错误。请检查每一步的状态值”
txtSql = "select * from class_info"
Set mrc = ExcuteSQL(txtSql, MsgString)
mrc.MoveFirstWhile (mrc.EOF = False)
    If Trim(mrc.Fields(0) = Trim(txtclassNO.Text)) Then
        MsgBox "学号已存在!", vbOKCancel + vbExclamation, "警告！"
        Exit Sub
        txtclassNO.Text = ""
        txtclassNO.SetFocus
    Else
        mrc.MoveNext
    End If
Wendmrc.AddNew
mrc.Fields(0) = Trim(txtclassNO.Text)  ‘错误在这一步产生
mrc.Fields(1) = Trim(Combograde.Text)
mrc.Fields(2) = Trim(txtmaster.Text)
mrc.Fields(3) = Trim(txtclassroom.Text)
mrc.Update
mrc.Close
MsgBox "添加信息成功!", vbOKCancel + vbExclamation, "添加成功！"请各位帮助解决这个错误！

Answer 1

检查一下是不是txtclassNO.Text的长度超过了字段的长度。