arkadaslar asagıda vermiş oldugum kod lar da sorun sadece buton7de formdan bilgiyi siliyor ama bir turlu databasede silemedim hata nerede bulamadım




Public Class form1
Public cm As CurrencyManager

Private Sub form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
oledbdataadapter1.update(DataSet11.kayit)
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11.kayit)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kyt()
If cm.Position = 0 Then
MsgBox("zaten ilk kayıttasınız")
Else
cm.Position = 0
End If

End Sub
Sub kyt()
cm = CType(Me.BindingContext(DataView1), CurrencyManager)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
kyt()
If cm.Position = 0 Then
MsgBox("Şu an ilk kayıttasınız")
Else
cm.Position -= 1
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
kyt()
If cm.Position = cm.Count - 1 Then
MsgBox("Son Kayıttasınız")
Else
cm.Position += 1
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
kyt()
If cm.Position = cm.Count - 1 Then
MsgBox("Zaten Son Kayıttasınız")
Else
cm.Position = cm.Count - 1
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
kyt()
cm.AddNew()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
kyt()
cm.EndCurrentEdit()
OleDbDataAdapter1.Update(DataSet11.kayit)
MsgBox("Kaydınız Tamamlandı")
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
kyt()
If cm.Count = 0 Then
MsgBox("Silinecek Kayıt Yok")
Else
cm.RemoveAt(cm.Position)
End If
End Sub
End Class
__________________