اضافه کردن رکورد در اکسس با vb.net

[farhad1371]

با سلام
من دارم با 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
لطفا کمکم کنید