'Sil Butonu

    'DataGrid üzerinden seçilen kaydı silmemize yarar.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Me.TextBox1.Text = "" Then

            MsgBox("Lütfen Öncelikle Kayıt Seçiniz.", MsgBoxStyle.Exclamation, "DİKKAT")

        Else

            Dim Sql As New String("DELETE FROM tab WHERE sıra='{0}' ")

            Sql = String.Format(sql, DataGridView1.CurrentRow.Cells(0).Value)

            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

            Dim sonuc As Integer

            baglanti.Open()

            sonuc = komutnesnesi.ExecuteNonQuery()

            If sonuc = 1 Then

                MsgBox("Listeden Seçmiş Olduğunuz Veriler Silinmiştir.", MsgBoxStyle.Exclamation, "Silme İşlemi")



            End If

            Listele("SELECT * FROM tab'")

            baglanti.Close()



        End If

    End Sub