VB如何修改数据库中的信息，为什么我改了后 数据库中的内容不变啊？？ 请帮我改正

Question

Private Sub Command1_Click()
Dim qr As Integer
On Error Resume Next
qr = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "提示！")
If qr = 6 Then
Adodc1.Recordset.Delete
If Adodc1.Recordset.AbsolutePosition = -1 Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MoveNext
End If
End If
End Sub
修改了后没有反应……

Answer 1

private Sub Command1_Click()   
Dim cn As New ADODB.Connection  
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb"  
  cn.Execute "update caigou set 审核通过=true where 编号='" & Combo1.Text & "'"   
  cn.Close   
  DataGrid1.Refresh  
   Adodc1.Refresh
   end Sub