vb出错：行句柄引用了一个已被删除的行

Private Sub Command3_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "不能删除空", vbOKOnly + vbCritical, "警告"
Else
Adodc1.Recordset.Delete
Adodc1.Recordset.Fields("专业代码") = Text1.Text
Adodc1.Recordset.Fields("专业名称") = Text2.Text
Adodc1.Recordset.Fields("学院代码") = Text3.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End If
End Sub

既然是删除数据，这部分就多余了
Adodc1.Recordset.Fields("专业代码") = Text1.Text
Adodc1.Recordset.Fields("专业名称") = Text2.Text
Adodc1.Recordset.Fields("学院代码") = Text3.Text
Adodc1.Recordset.Update
Adodc1.Refresh

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息