Registered data disappear

Question

The Registration form registers correctly in the database and if you exchange user with the open program it still accesses the registered data, but when it closes the program completely and opens again all the registered data some one knows what this can be? Obs - code below

 Private Sub Salva()

    Using con As OleDbConnection = GetConnection()

        Try

            con.Open()
            Dim sql As String = "INSERT INTO usuarios (login,senha,perfil) VALUES(?,?,?)"
            Dim cmd As OleDbCommand = New OleDbCommand(sql, con)

            cmd.Parameters.Add(New OleDb.OleDbParameter("@login", TextBox1.Text))
            cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", TextBox2.Text))
            cmd.Parameters.Add(New OleDb.OleDbParameter("@perfil", ComboBox1.SelectedIndex))

            cmd.ExecuteNonQuery()

            MsgBox("Usuário Cadastrado Com Sucesso!", MsgBoxStyle.Information)

        Catch ex As Exception

            MsgBox("Ocorreu um erro ao tentar gravar um novo Usuário", MsgBoxStyle.Information)

        Finally

            con.Close()

        End Try

    End Using

    LimpaCampos()

End Sub