BindingSource.Endedit() не сохраняет данные в наборе данных VB.Net

Question

Я должен сохранить запас в моем наборе данных. Когда я работаю в текущей форме, мой bindigsource обновляется правильно. Это показывает мой обновленный запас. Но после перезапуска этой формы данные не обновляются до набора данных. Они не отображаются в виде сетки. Я извиняюсь за мой английский. Пожалуйста, помогите мне сохранить данные в наборе данных.

 Private Sub AddStockBtn_Click(sender As Object, e As EventArgs) Handles AddStockBtn.Click
  Dim Size, Stock As Integer
  no = StockBindingSource.Count + 1
       StockBindingSource.AddNew()
       StockBindingSource.Current("No") = no
       StockBindingSource.Current("ShoeID") = IDBox.Text
   For i As Integer = 0 To ShoeDataBindingSource.Count - 1
     Dim rowData As DataRowView = ShoeDataBindingSource.Item(i)
   If rowData("ShoeID").ToString = IDBox.Text Then
     StockBindingSource.Current("ShoeType") = ShoeDataBindingSource.Current("Type")
     StockBindingSource.Current("Description") = ShoeDataBindingSource.Current("Name")
   End If
   Next
      StockBindingSource.Current("Size") = Size
      StockBindingSource.Current("Stock") = Stock
      StockBindingSource.EndEdit()
      TableAdapterManager.UpdateAll(Me.SilexDatabaseDataSet)
   End Sub