Vb.Net Connection to MS Access Problem

[jhan04]

i created a form that register patients to a database, everything works fine, after saving the info of a patient, it updates the database which located at the Debug folder of the saved project, i tried it several times. but when i close the application (VB.Net) and open it again, the data that i added were gone..
it was not saved on the database permanently. can someone help me please.... Thanks in Advance..

Dim myConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=PHMSDB.accdb")
        'myConnection.ConnectionString = connString

        'Dim str As String
        'Str = "INSERT into Patients ([Patient_ID], [lname], [fname], [mname], [bday], [address], [Status]) values (?, ?, ?, ?, ?, ?, ?)"
        Dim cmd As OleDbCommand = New OleDbCommand("INSERT into Patients ([Patient_ID], [lname], [fname], [mname], [bday], [address], [Status]) values (?, ?, ?, ?, ?, ?, ?)", myConnection)
        'Dim cmd2 As OleDbCommand = New OleDbCommand("INSERT into [Patient_Record] ([Patient_ID]) values (?)", myConnection)
        Dim cmd3 As OleDbCommand = New OleDbCommand("INSERT into [Baby] ([Patient_ID]) values (?)", myConnection)
        Dim cmd4 As OleDbCommand = New OleDbCommand("INSERT into [Patient_Sched] ([patient_ID], [DateReg], [LMP], [EDC], [Trimester1], [Trimester2], [Trimester3], [Remarks]) values (?, ?, ?, ?, ?, ?, ?, ?)", myConnection)
        Dim cmd5 As OleDbCommand = New OleDbCommand("INSERT into [Schedules] ([Patient_ID], [Next_Schedule]) values (?, ?)", myConnection)

        myConnection.Open()
        cmd.Parameters.Add(New OleDbParameter("Patient_ID", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("lname", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("fname", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("mname", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("bday", CType(DateTimePicker1.Value.Date, String)))
        cmd.Parameters.Add(New OleDbParameter("address", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Status", CType(ListBox1.Text, String)))
        ' cmd2.Parameters.Add(New OleDbParameter("Patient_ID", CType(TextBox1.Text, String)))
        cmd3.Parameters.Add(New OleDbParameter("Patient_ID", CType(TextBox1.Text, String)))
        cmd4.Parameters.Add(New OleDbParameter("patient_ID", CType(TextBox1.Text, String)))
        cmd4.Parameters.Add(New OleDbParameter("DateReg", CType(DateTimePicker2.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("LMP", CType(DateTimePicker4.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("EDC", CType(DateTimePicker3.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("Trimester1", CType(DateTimePicker5.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("Trimester2", CType(DateTimePicker6.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("Trimester3", CType(DateTimePicker7.Value.Date, String)))
        cmd4.Parameters.Add(New OleDbParameter("Remarks", CType(TextBox6.Text, String)))
        cmd5.Parameters.Add(New OleDbParameter("Patient_ID", CType(TextBox1.Text, String)))
        cmd5.Parameters.Add(New OleDbParameter("Next_Schedule", CType(DateTimePicker2.Value.Date, String)))
        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            ' cmd2.ExecuteNonQuery()
            'cmd2.Dispose()
            cmd3.ExecuteNonQuery()
            cmd3.Dispose()
            cmd4.ExecuteNonQuery()
            cmd4.Dispose()
            cmd5.ExecuteNonQuery()
            cmd5.Dispose()
            myConnection.Close()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox1.Visible = False
            TextBox2.Visible = False
            TextBox3.Visible = False
            TextBox4.Visible = False
            TextBox5.Visible = False
            DateTimePicker1.Visible = False
            ListBox1.Visible = False
            DateTimePicker2.Visible = False
            DateTimePicker3.Visible = False
            DateTimePicker4.Visible = False
            DateTimePicker5.Visible = False
            DateTimePicker6.Visible = False
            DateTimePicker7.Visible = False
            TextBox6.Visible = False

            Patient_IDTextBox.Visible = True
            LnameTextBox.Visible = True
            FnameTextBox.Visible = True
            MnameTextBox.Visible = True
            AddressTextBox.Visible = True
            StatusTextBox.Visible = True
            BdayDateTimePicker.Visible = True
            DateRegDateTimePicker.Visible = True
            LMPDateTimePicker.Visible = True
            EDCDateTimePicker.Visible = True
            Trimester1DateTimePicker.Visible = True
            Trimester2DateTimePicker.Visible = True
            Trimester3DateTimePicker.Visible = True
            RemarksTextBox.Visible = True
            Button2.Enabled = False
            'TODO: This line of code loads data into the 'PHMSDBDataSet.Patients' table. You can move, or remove it, as needed.
            Me.PatientsTableAdapter.Fill(Me.PHMSDBDataSet.Patients)
            MessageBox.Show("Successfully Added!")
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try