Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim bag As New OleDbConnection
Dim kmt As New OleDbCommand
Dim tablo As New DataTable
Dim adtr As New OleDbDataAdapter

Try
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinize emin misiniz?", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (cevap = DialogResult.Yes) Then
kmt.Connection = bag
bag.Open()
kmt.CommandText = "delete from Bilgiler where id='" & Text2.Text & "'"
kmt.ExecuteNonQuery()
bag.Close()
End If

Catch ex As Exception

End Try
End Sub
End Class


Textbox'dan girilen id numarasına silme işlemi yapıcam fakat silmiyor.
__________________