rmation + vbOKOnly, "警告")
            Exit Sub
        End If
        Dim mrc As ADODB.Recordset
        txtsql = "select * from classkecheng where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "' and 学期='" & Trim(Combo1(3).Text) & "'"
        Set mrc = ExecuteSQL(txtsql)
        If mrc.EOF = False Then
            sss = MsgBox("已存在该班级本学期课程设置和成绩记录，" & Chr(10) & Chr(13) & "继续会导致以上的成绩丢失,继续吗？！", vbOKCancel +