[Resolvido] Registos Desaparecem da Base dados Access

[Chamuanza 4]

Um Bem Aja a todos com Votos de Bom Natal

Tenho uma BD Access 2010 onde faço o Insert com o código descrito a seguir. Os respectivos valores (referentes a ultima semana) aparecem na BD. Sem fechar a aplicação VB Net fazendo uma consulta recebo os dados bem. Só que depois de fechar o VB Net e voltar a abrir a aplicação (projecto) os dados que introduzi desaparecem da BD. 

Agradeço uma ajuda

 

Private Sub InserirJogadosEuro()

        Dim DataSorteio = MonthCalendar1.SelectionStart.DayOfWeek
        Dim Dia As String
        Dia = ""
        Select Case DataSorteio
            Case 2
                Dia = "Terça Feira"
            Case 5
                Dia = "Sexta Feira"
        End Select


        ' Texto de ligação à base de dados 
        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Justino\Documents\Visual Studio 2015\Projects\TotoMilhoesNovo\TotoMilhoesNovo\bin\Debug\ResultadosEuromilhoesTotoloto.accdb")



        ' Comando que irá inserir dados na tabela "NumJogadosEuromilhoes" em que os campos 
        ' "Data" e "diasemana" são passados através de parâmetros 
        Dim Query As String = "INSERT INTO NumJogadosEuromilhoes([Aposta], [Data], [DiaSemana], [N1], [N2], [N3], [N4], [N5],[E1], [E2]) VALUES (@Aposta, @Data, @DiaSemana, @N1, @N2, @N3, @N4, @N5, @E1, @E2)"

        '' Cria uma nova ligação à base de dados 
        'Dim connection As New SqlConnection(myConnectionString)
        ' Criação do comando indicando a instrução e a ligação 
        Dim command As New OleDbCommand(Query, ConnectionString)

        ' Indicação dos parâmetros que serão inseridos 
        command.Parameters.Add("@Aposta", OleDbType.VarChar).Value = ContaNumeroAposta
        command.Parameters.Add("@Data", OleDbType.Date).Value = MonthCalendar1.SelectionStart
        'command.Parameters.Add("@DiaSemana", SqlDbType.VarChar).Value = MonthCalendar1.SelectionStart.DayOfWeek
        command.Parameters.Add("@DiaSemana", OleDbType.VarChar).Value = Dia
        command.Parameters.Add("@N1", OleDbType.VarChar).Value = ListBox1.Items.Item(0).ToString
        command.Parameters.Add("@N2", OleDbType.VarChar).Value = ListBox1.Items.Item(1).ToString
        command.Parameters.Add("@N3", OleDbType.VarChar).Value = ListBox1.Items.Item(2).ToString
        command.Parameters.Add("@N4", OleDbType.VarChar).Value = ListBox1.Items.Item(3).ToString
        command.Parameters.Add("@N5", OleDbType.VarChar).Value = ListBox1.Items.Item(4).ToString

        command.Parameters.Add("@E1", OleDbType.VarChar).Value = ListBox2.Items.Item(0).ToString
        command.Parameters.Add("@E2", OleDbType.VarChar).Value = ListBox2.Items.Item(1).ToString



        ' Abre a ligação, executa o comando e guarda em "x" o número de registos inseridos 
        ConnectionString.Open()

        Dim x As Integer = command.ExecuteNonQuery()
        If x < 1 Then
            MessageBox.Show("A operação efectuada não retomou qualquer resultado.")
        Else
            MsgBox("Aposta Registada com Exito", MsgBoxStyle.Information, "Registo de Aposta na Base Dados")

        End If

        ' Fecha a ligação e limpa as variáveis 
        ConnectionString.Close()
        ConnectionString = Nothing
        command = Nothing


        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

    End Sub

 

Editado 12 de Janeiro por Chamuanza
Resolvido