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