下面是我编的一个删除纪录的程序Private Sub Command7_Click()
  On Error GoTo AddErr
        If MsgBox("你确定删除该条纪录吗？vbOKCancel, 警告") = vbOK Then
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveNext
        If Adodc1.Recordset.EOF Then
            Adodc1.Recordset.MoveLast
            
        End If
                GradeRefresh
        End If
        Exit Sub
AddErr:
    MsgBox Err.Description
End Sub
Private Sub GradeRefresh()
    Adodc1.RecordSource = "Select * from 教室信息 where  教室号 = '" & Trim(Text2.Text) & "'"
    Adodc1.Refresh
End Sub
可我在运行是，点完删除按钮后他告诉我FORM语法错误，还有对象"refresh"的方法"IAdodc"失败。但数据能够被删除掉。哪位大虾告诉我下该怎么改，谢谢了