How to add datagridview records - closed

when i try to save a record it won't show up in the datagridview until i close the form and run it again

  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

            provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
            'Change the following to your access database location
            dataFile = "C:\Users\DELL\Downloads\WindowsApplication1\WindowsApplication1\Database1.accdb"
            connString = provider & dataFile
            myConnection.ConnectionString = connString
            myConnection.Open()
            Dim str As String
            str = "insert into tblODR ([ID], [Office], [Elements], [Objectives], [Initiatves]) values (?, ?, ?, ?, ?)"
            Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
            cmd.Parameters.Add(New OleDbParameter("UPC", CType(IDTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Item", CType(OfficeTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Cost", CType(ElementsTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Price", CType(ObjectivesTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Quantity", CType(InitiatvesTextBox.Text, String)))
            Try
                cmd.ExecuteNonQuery()
                cmd.Dispose()
                myConnection.Close()
                IDTextBox.Clear()
                OfficeTextBox.Clear()
                ElementsTextBox.Clear()
                ObjectivesTextBox.Clear()
                InitiatvesTextBox.Clear()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try


        End Sub

      

        
        
        
      

    

the code below is for deleting targets, I need code like this BUT for adding / saving records.

 Try
                Dim int As Integer = DataGridView1.SelectedRows(0).Index

                DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
                ds.Tables(0).Rows(int).Delete()
                da.Update(ds, "datainfo")
                MessageBox.Show("Success!")

            Catch ex As Exception

            End Try