vb删除记录问题

请高手看这段代码:
On Error GoTo aa
Dim Msg, STYLE, Title '声明
STYLE = vbYesNo '定义按钮。
Msg = "您确定要删除吗?" '定义提示信息
Title = "提示" '定义窗口标题文字
Response = MsgBox(Msg, STYLE, Title)
If Response = vbYes Then ' 用户按下“是”。
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.EOF = True Then
MsgBox "当前已是最后一 条符合条件的信息记录", , "返回"
Adodc1.Recordset.MoveLast
End If
Else ' 用户按下“否”。
End If
aa:
If Err.Number = 3021 Then
End If
/////////////////
执行时正确删除记录!可在DATAGRID控件中去还在!请问哪出问题了!
回复:windlf ----试过了!刷新DATAGRID也没有用!回复二!你的方法我都试过还是不行呀!

vb删除记录问题 vb问题 （删除记录） VB 删除记录的问题 vb中删除所有记录 vb 记录数组问题 VB记录问题 VB+SQL 如何用游标删除记录 怎样用VB添加数据库表，删除记录 VB的gridex控件如何删除记录？ dw删除记录问题