Yang udah stay tune di postingan ini sampe part ini makasih banget yah, artikel ini lanjutan dari Part 2 . User menentukan baris mana yang mau dihapus kemudian klik tombol Delete. Makara kita akan menciptakan prosedure berikut pada event tbrDelete_Click. Sebelum meniadakan data diberikan pesan konfirmasi proses hapus apalagi dahulu. Private Sub tbrDelete_Click(sender As Object, _ e As EventArgs) Handles tbrDelete.Click If MsgBox( "Yakin akan menghapus data?" , MsgBoxStyle.YesNo, _ "Konfirmasi" ) = MsgBoxResult.No Then Exit Sub Dim myCommand As New OleDbCommand Dim SQL As String Try If Not con.State = ConnectionState.Open Then Open_Koneksi() SQL = "DELETE FROM kategori WHERE kodekategori = " & _ "'" & grdData.CurrentRow.Cells(0).Value & "'" myCommand.Connection = con myCommand.CommandText = SQL myCommand.ExecuteNonQuery() MsgBox( "Data terhapus" ) tbrCancel_Click( Nothing , Nothing ) con.Close() Catch myerror As OleDbException MessageBox.Show( "Error: " & myerror.Message) Finally con.Dispose() End Try End Sub Terakhir tambahkan procedure untuk menutup form pada event tbrClose_Click. Private Sub tbrClose_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles tbrClose.Click Me .Close() End Sub Nah telah lengkap deh, mari kita coba... Kode selengkapnya ada di Part 4 .... Click here if you like this article. Sumber http://rani-irsan.blogspot.com