اين الخطا في هذا الكود (كود التغيير لا يعمل )

السلام عليكم

عندي كود تغيير البيانات لا يعمل ارجو التفضل علي بالحل مع ان كود الحذف والاضافة يعملان ولكن كود التغيير او التعديل لا يعمل

---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub FillDataSetAndView()

DV = Nothing

ds2 = New DataSet()

cOn2.Open()

dr2 = New OleDbDataAdapter("SELECT * from per", cOn2)

dr2.Fill(ds2, "per")

DV = New DataView(ds2.Tables("per"))

objCurrencyManager = CType(Me.BindingContext(DV), CurrencyManager)

cOn2.Close()

ds2 = Nothing

End Sub

Private Sub bindingfiels()

txtname.DataBindings.Clear()

txtpost.DataBindings.Clear()

txtnamber.DataBindings.Clear()

txtmobail.DataBindings.Clear()

txtemail.DataBindings.Clear()

txtjop.DataBindings.Clear()

txtadress.DataBindings.Clear()

picsimpl.DataBindings.Clear()

txtname.DataBindings.Add("text", DV, "name")

txtpost.DataBindings.Add("text", DV, "post")

txtnamber.DataBindings.Add("text", DV, "namber")

txtmobail.DataBindings.Add("text", DV, "mobail")

txtjop.DataBindings.Add("text", DV, "jop")

txtemail.DataBindings.Add("text", DV, "email")

txtadress.DataBindings.Add("text", DV, "adress")

picsimpl.DataBindings.Add("text", DV, "pic")

End Sub

'================================================================================

Private Sub ShowPosition()

lblrecordposition.Text = objCurrencyManager.Position + 1 & " of " & objCurrencyManager.Count

End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'زر التغيير

Private Sub btnchange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchange.Click

CoM2 = New OleDbCommand()

'فتح الاتصال

cOn2.Open()

CoM2.Connection = cOn2

CoM2.CommandText = " UPDATE per SET name= ? ,post = ? , namber = ?, mobail = ? , job = ?,email =? , adress= ? , where name= ? "

CoM2.CommandType = CommandType.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(0).Value = txtname.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(1).Value = txtpost.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(2).Value = txtnamber.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(3).Value = txtmobail.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(4).Value = txtjop.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(5).Value = txtemail.Text

CoM2.Parameters.Add(New OleDbParameter())

CoM2.Parameters.Item(6).Value = txtadress.Text

'CoM2.Parameters.Add(New OleDbParameter())

'CoM2.Parameters.Item(6).Value = picsimpl.Image

Try

CoM2.ExecuteNonQuery()

Catch ex As OleDbException

MessageBox.Show(ex.Message)

End Try

cOn2.Close()

FillDataSetAndView()

bindingfiels()

ShowPosition()

MessageBox.Show("تمت عمليه التغيير")

CoM2 = Nothing

End Sub

--------------------------------------------------------------------------------------------------------------------------------------

وهذا الي بداخل الميديول

'الدليل الخاص

Public currgolder As String = CurDir.ToString

Public pox2 As String

Public cOn2 As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=personal dairctory.mdb;") ' انشاء كائن اتصال

Public dr2 As New OleDbDataAdapter() ' انشاء محول

Public ds2 As New DataSet() 'كائن لأخذ نسخة من الجدول ثم إغلاق قاعدة البيانات

Public dv2 As DataView

Public cm2 As CurrencyManager

Public CoM2 As OleDbCommand = New OleDbCommand() ' إنشاء وسيط

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------