[VB.NET] Mancato salvataggio di dati nel DB

[bibuz]

Salve ragazzi ho iniziato da poco e programmare in VB.net e ho seguito una esercitazione di esempio. Ho creato una agenda elettronica dove si possono memorizzare i contatti e modificarli.
Funziona correttamente tutto fino a quando non chiudo l'applicazione. Alla chiusira infatti mi perde tutti i cambiamenti fatti.
Da cosa può dipendere?
Vi posto il codice:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: questa riga di codice carica i dati nella tabella 'AgendaDataSet.Rubrica'. È possibile spostarla o rimuoverla se necessario.
        Me.RubricaTableAdapter.Fill(Me.AgendaDataSet.Rubrica)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        BindingNavigator1.Refresh()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub BindingNavigatorPositionItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.Click
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "Modifica" Then
            'Attiva la funzione di modifica. 
            BindingNavigator1.Update()
            Button3.Text = "Annulla"
            Button6.Visible = True
        Else
            'Annulla le modifiche. 
            BindingNavigator1.BindingSource.CancelEdit()
            Button6.Visible = False
            Button3.Text = "Modifica"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Salva le modifiche. 
        BindingNavigator1.Update()
        Button6.Visible = False
        Button3.Text = "Modifica"
        Button2.Text = "Aggiungi"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Aggiungi" Then
            'Attiva la funzione di aggiunta. 
            'Data1.Recordset.AddNew()
            BindingNavigator1.BindingSource.AddNew()
            Button2.Text = "Annulla"
            Button6.Visible = True
        Else
            'Annulla le modifiche. 
            BindingNavigator1.BindingSource.CancelEdit()
            Button6.Visible = False
            Button2.Text = "Aggiungi"
        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Dim Risposta As Integer
        'Chiede conferma prima di procedere con l'eliminazione. 
        Dim result As DialogResult = MessageBox.Show("Conferma ?", "Eliminazione Record", MessageBoxButtons.YesNo)
        If result = Windows.Forms.DialogResult.Yes Then
            'Elimina i dati. 
            BindingNavigator1.BindingSource.RemoveCurrent()
            'Si sposta nel record precedente. 
            BindingNavigator1.BindingSource.MovePrevious()
        End If

    End Sub

    Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        RubricaBindingSource1.RemoveCurrent()
    End Sub
End Class

Grazie in anticipo a tutti