Сохранение данных в таблице при выходе из приложения

Public Class Form1
 
 
    Private Sub AddressesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressesBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.AddressesBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.Addresses' table. You can move, or remove it, as needed.
        Me.AddressesTableAdapter.Fill(Me.Database1DataSet.Addresses)
 
    End Sub
 
    Private Sub ButCreat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButCreat.Click
        BindingNavigatorAddNewItem.Enabled = True
        BindingNavigatorAddNewItem.PerformClick()
 
    End Sub
 
    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
        MsgBox("Нажата кнопка сохранить!")
    End Sub
 
    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        MsgBox("Нажата кнопка удалить!")
    End Sub
 
    Private Sub ButDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButDel.Click
        BindingNavigatorDeleteItem.Enabled = True
        BindingNavigatorDeleteItem.PerformClick()
    End Sub
 
    Private Sub ButEx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButEx.Click
        Close()
    End Sub
End Class