How to save to an excel data file before exiting program using oledb wtih VB

See more:

VB

MS-Excel

database

OleDb

Hell All, I have written a timelog program with VB which allows for the addition of employees/associates.I noticed that when the user enters a name and wage and presses the "add associate" button that the new data/associate info does not immediately get written to the excel file. the program has to be closed before the excel file is updated. Is there a way to have the new associate data saved to the excel file right after the "add' button is pressed. My code for adding an associate is below. Any help is greatly appreciated!

What I have tried:

Using con As New OleDbConnection(connString)
               Dim dtAssoc As New DataTable
               Dim oda As New OleDbDataAdapter()
               Try
                   con.Open()
                   Dim cmd As New OleDbCommand()
                   oda.InsertCommand = cmd
                   cmd.Connection = con
                   cmd.CommandText = "INSERT INTO Associates (Assoc_ID, Assoc_Name, Assoc_Wage) VALUES (@Assoc_ID, @Assoc_Name, @Assoc_Wage)"
                   cmd.Parameters.AddWithValue("@Assoc_ID", adAssocID.ToString)
                   cmd.Parameters.AddWithValue("@Assoc_Name", adAssocName.ToString)
                   cmd.Parameters.AddWithValue("@Assoc_Wage", adAssocWage)
                   cmd.ExecuteNonQuery()

               Catch ex As Exception
               Finally
                   con.Close()
               End Try
               MsgBox("Associate added")
           End Using