使用ADODB VB6和Access删除数据不起作用

Question

我在通过ADODB使用DELETE从Access 2010数据库中删除数据时遇到问题。数据库文件名为tiket.mdb，我尝试删除的表名称为pemasukan。

但是，当我单击调用此代码的按钮时，DELETE不会发生。

Private Sub btnHapus_Click()
   cari = txtNo.Text
db.Execute "DELETE * FROM pemasukan Where no='" & cari & "'"
MsgBox "Data telah di delete"

koneksi
    Set rs = New Recordset
    rs.Open "pemasukan", db, adOpenDynamic, adLockOptimistic

    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
End Sub