coba alternatif ini
letakkan koding ini di event click nya datagrid
If MsgBox("apakah data ini mau dihapus?", vbYesNo + vbCritical, "Hapus
data") = vbYes Then
rs.Delete
rs.MoveNext
End If
atau bisa juga spt ini
If MsgBox("apakah data ini mau dihapus?", vbYesNo + vbCritical, "Hapus
data") = vbYes Then
cn.execute("delete from tabel where kode = datagrid1.columns.item(0)
End If
jadi perintah diatas akan menghapus data yg kodenya ada di kolom pertama
dari datagrid dan baris yang di klik user
salam
lilis
