实时错误'3021'，BOF或EOF中有一个是"真",或者当前的记录以被删除

Dim sql1 As String
'Dim MaxID As Integer
'If Stu_Class.ListIndex = -1 Then MsgBox "请选择课程": Exit Sub