'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 Kayitlar WHERE TckimlikNo='{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 Kayitlar'")
 baglanti.Close()
 Temizle()
 End If
 End Sub