مشکل آپدیت اطلاعات دیتا گرید در بانک اکسس

[hhr1360]

سلام
الان برای آپدیت اطلاعات دیتا گرید تو بانک اکسس مشکل دارم
این کد نوشتم. میشه لطفا یک نگاه بکنید؟

Public Class Form3
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=|DataDirectory|\kala.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123")
Dim ad As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New Data.DataTable
Dim r As DataRow

کد های فرم لود

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


ad = New OleDb.OleDbDataAdapter("select * from fardi", con)
ad.Fill(ds, "fardi")
dt = ds.Tables("fardi")
dgv.DataSource = dt


End Sub

این کد دکمه ذخیره اطلاعات
Private Sub but_sa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_sa.Click


ad.Update(ds, "fardi")


End Sub