مشكلة في تحديث داتاسيت

إخواني الأعضاء لدي الكود التالي للتنقل بين السجلات

Private Sub Navigate_Main_Journal() 'تجهيز وتعبئة الداتا سيت

DataSet_Sql.Clear()

DataBindings.Clear()

If Conn_SqL.State = ConnectionState.Open Then Conn_SqL.Close()

Dim Sql_sql As String = "select * from [A_Main_Journal] where [is_Saved] = 'YES' and [Fiscal_year] = '" & (MDIParent1.All_F_Year.ComboBox.Text) & "' and

= '" & MDIParent1.All_Account_Comp.ComboBox.SelectedValue & "' order by [Id_Journal]"
Dim DataAdapter_Sql As New SqlDataAdapter(Sql_sql, Conn_SqL)
DataAdapter_Sql.Fill(DataSet_Sql, "A_Main_Journal")
Conn_SqL.Close()
DataAdapter_Sql.Dispose()
TextBox1.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.Id_Journal")
TextBox2.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.Date_journal")
TextBox3.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.discription_Journal")
Journal_State.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.Is_Saved")
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Position = Me.BindingContext(DataSet_Sql, "A_Main_Journal").Count - 1
Label7.Text = Me.BindingContext(DataSet_Sql, "A_Main_Journal").Position + 1 & " من " & Me.BindingContext(DataSet_Sql, "A_Main_Journal").Count

ويتم تنفيذه عند تحميل الفورم

وهناك أربعة مفاتيح للتنقل داخل الداتا سيت أمام - خلف أول - آخر ويعمل ولا توجد مشكلة

المشكلة تحدث عندما يتم إضافة سجل جديد

أريد تحديث الداتا سيت بناء على ماحدث سواء إضافة سجلات أو حذف سجلات

ولكم جزيل الشكر