من برنامه شما رو چک نکردم اما این کدها رو برای اکسس نوشتم و جواب داد
bimeh.mdb نام پایگاه داده است. Personaldam نام جدول است. بقیه هم که نام فیلدهاست
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\bimeh.mdb;Persist Security Info=False"
Dim StrSQL As String = "Select * from personaldam"
Dim objConnection As New OleDbConnection(connString)
Dim objCommand As New OleDbCommand("", objConnection)
objCommand.CommandText = "UPDATE Personaldam " & _
"SET Numberbimeh = @Numberbimeh, Name = @Name,Family = @Family, Shsh = @Shsh WHERE Numberbimeh = @Numberbimeh"
objCommand.CommandType = CommandType.Text
objCommand.Parameters.AddWithValue("@Numberbimeh", txtNumberbimeh.Text)
objCommand.Parameters.AddWithValue("@Name", txtName.Text)
objCommand.Parameters.AddWithValue("@Family", txtFamily.Text)
objCommand.Parameters.AddWithValue("@Shsh", txtShsh.Text)
Dim ds As New DataSet
objCommand.Parameters.AddWithValue("@personaldam", ds.Tables("Personaldam"))
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()