我在执行一个删除任务时出现了"实时错误'-2147217885' (80040e23)':
行句柄引用了一个已被删除的行或被标识为删除的行" 这样一句话 不过我要删了内容已经被删了


Public Sub InitData()
Dim i As Integer

Adodc1.RecordSource = "select * from 课件表 order by 课件编号"

If Adodc1.Recordset.EOF = False Then

With MSFlexGrid1
.Rows = 3
.Row = 2

Do While Not Adodc1.Recordset.EOF
.Rows = .Rows + 1
For i = 1 To Adodc1.Recordset.Fields.Count
.TextMatrix(.Row - 1, i - 1) = Adodc1.Recordset.Fields(i - 1)
Next i
.Row = .Row + 1
Adodc1.Recordset.MoveNext
Loop
End With
End If
End Sub

ublic Sub InitData()
Dim i As Integer

Adodc1.RecordSource = "select * from 课件表 order by 课件编号"

If Adodc1.Recordset.EOF = False Then

With MSFlexGrid1
.Rows = 3
.Row = 2

Do While Not Adodc1.Recordset.EOF
.Rows = .Rows + 1
For i = 1 To Adodc1.Recordset.Fields.Count
.TextMatrix(.Row - 1, i - 1) = Adodc1.Recordset.Fields(i - 1)
Next i
.Row = .Row + 1
Adodc1.Recordset.MoveNext
Loop
End With
End If
End Sub

提示是黄色的那些代码有错啊