اضافه کردن اطلاعات در اکسس

با سلام
من دارم با vb.net کار می کنم.این کد را برای اضافه کردن یک ردیف در اکسس نوشتم .حالا وقتی کلید add رو میزنم اطلاعات در دیتاست ذخیره میشه و با قطع و شروع مجدد برنامه این ردیف ها اضافه شده.ولی توی اکسس در جدول چیزی اضافه نشده

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
Dim d As DataRow = DataSet1.farhad.NewRow
d("distance") = TextBox1.Text
d("boresh") = TextBox2.Text
d("langar") = TextBox3.Text
(DataSet1.farhad.Rows.Add(d
Dim ds As DataSet = DataSet1
(Dim fr As New OleDb.OleDbCommandBuilder(OleDbDataAdapter1
("OleDbDataAdapter1.Update(ds, "farhad

End Sub
لطفا کمکم کنید

کسی نیست که بتونه کمکم کنه؟
واقعا اعصاب برام نمونده!!!