Setelah Edit/Update data , selanjut nya ialah proses delete/hapus. Untuk menyertakan fungsi delete, tambahkan procedure berikut pada event cmdDelete_Click : Private Sub cmdDelete_Click() On Error GoTo errHandler 'jika data kosong code pada event ini tidak akan dilakukan If rsData.RecordCount = 0 Then Exit Sub 'konfirmasi peniadaan If MsgBox("Yakin akan menghapus kategori " & _ rsData!categorycode & "?", vbOKCancel) = vbOK Then RunQuery "DELETE FROM category WHERE " & _ "categorycode = '" & rsData!categorycode & "'" MsgBox "Data Terhapus" End If 'membersihkan control input cmdCancel_Click Exit Sub errHandler: MsgBox Err.Number & ":" & Err.Description End Sub Coba run aplikasi dengan F5 . Pilih baris data yang mau dihapus, kemudian klik tombol Delete. Sebelum data betul-betul dihapus akan ada pesan konfirmasi. Klik Ok untuk melanjutkan hapus Setelah data terhapus akan muncul pesan konfirmasi Data yang sudah terhapus tidak akan tampil lagi di grid. Lihat code lengkapnya disini. Click here if you like this article. Sumber http://rani-irsan.blogspot.com