Using VB.Net to Insert Data to an Access Database

Does anyone have an idea on how to update the actual access datbase file? This is my code so far and I think everything is right, but when hit the button to send the information to the actual database file it does not appear in there. Can someone help me with this? The access file I'm talking about is the one outside of the visual basic project itself, but still connected.

Code

Imports System.Data.OleDb

Public Class Form1

Dim provider As String
Dim datafile As String
Dim connString As String
Dim con As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=G:\Music Session Database\Music Database.accdb")
Dim ds As New DataSet

Dim dt As New DataTable

Dim da As New OleDbDataAdapter

Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
    Me.Close()
End Sub



Private Sub btnsubmit_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnsubmit1.Click

    Me.Music_DatabaseTableAdapter.Insert(Me.songTitle.Text, Me.songArtist.Text, Me.songAlbum.Text, Me.yearReleased.Text)
    Me.Music_DatabaseTableAdapter.Fill(Me.Music_DatabaseDataSet.Music_Database)


    con.Open()
    MsgBox("Record Added")
    con.Close()
    songTitle.Text = ""
    songArtist.Text = ""
    songAlbum.Text = ""
    yearReleased.Text = ""


End Sub


Private Sub btnsumbit2_Click(sender As Object, e As EventArgs) Handles btnsumbit2.Click

    Me.Play_SessionTableAdapter.Insert(Me.songTitle.Text, Me.songArtist.Text, Me.songAlbum.Text, Me.yearReleased.Text, Me.datePlayed.Text, Me.timePlayed.Text, Me.genre.Text)
    Me.Play_SessionTableAdapter.Fill(Me.Music_DatabaseDataSet.Play_Session)


    con.Open()
    MsgBox("Record Added")
    con.Close()
    songTitle.Text = ""
    songArtist.Text = ""
    songAlbum.Text = ""
    yearReleased.Text = ""
    datePlayed.Text = ""
    timePlayed.Text = ""
    genre.Text = ""



End Sub

Private Sub btnsubmit3_Click(sender As Object, e As EventArgs) Handles btnsubmit3.Click


    Me.Song_Artist_InformationTableAdapter.Insert(Me.songArtist.Text, Me.genre.Text, Me.origin.Text, Me.artistInformation.Text)
    Me.Song_Artist_InformationTableAdapter.Fill(Me.Music_DatabaseDataSet.Song_Artist_Information)

    con.Open()
    MsgBox("Record Added")
    con.Close()
    songArtist.Text = ""
    genre.Text = ""
    origin.Text = ""
    artistInformation.Text = ""


End Sub

Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
    songTitle.Clear()
    songArtist.Clear()
    songAlbum.Clear()
    yearReleased.Clear()
    datePlayed.Clear()
    timePlayed.Clear()
    genre.Clear()
    artistInformation.Clear()
End Sub


Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs)
    Try

    Catch ex As System.Exception
        System.Windows.Forms.MessageBox.Show(ex.Message)
    End Try

End Sub

Private Sub Music_DatabaseBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Music_DatabaseBindingNavigatorSaveItem.Click
    Me.Validate()
    Me.Music_DatabaseBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.Music_DatabaseDataSet)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'Music_DatabaseDataSet.Song_Artist_Information' table. You can move, or remove it, as needed.
    Me.Song_Artist_InformationTableAdapter.Fill(Me.Music_DatabaseDataSet.Song_Artist_Information)
    'TODO: This line of code loads data into the 'Music_DatabaseDataSet.Play_Session' table. You can move, or remove it, as needed.
    Me.Play_SessionTableAdapter.Fill(Me.Music_DatabaseDataSet.Play_Session)
    'TODO: This line of code loads data into the 'Music_DatabaseDataSet.Music_Database' table. You can move, or remove it, as needed.
    Me.Music_DatabaseTableAdapter.Fill(Me.Music_DatabaseDataSet.Music_Database)







End Sub




Private Sub btnupdate1_Click(sender As Object, e As EventArgs) Handles btnupdate1.Click
    Me.Validate()
    con.Open()
    ds.Tables.Add(dt)
    da = New OleDbDataAdapter("Select * from [Music Database]", con)
    Dim cb = New OleDbCommandBuilder(da)
    cb.QuotePrefix = "["
    cb.QuoteSuffix = "]"
    da.Fill(dt)
    Music_DatabaseDataGridView.DataSource = dt.DefaultView
    da.Update(dt)
End Sub

Private Sub btnupdate2_Click(sender As Object, e As EventArgs) Handles btnupdate2.Click
    Me.Validate()
    con.Open()
    ds.Tables.Add(dt)
    da = New OleDbDataAdapter("Select * from [Play Session]", con)
    Dim cb = New OleDbCommandBuilder(da)
    cb.QuotePrefix = "["
    cb.QuoteSuffix = "]"
    da.Fill(dt)
    Play_SessionDataGridView.DataSource = dt.DefaultView

    da.Update(dt)


End Sub

Private Sub btnupdate3_Click(sender As Object, e As EventArgs) Handles btnupdate3.Click
    Me.Validate()
    con.Open()
    ds.Tables.Add(dt)
    da = New OleDbDataAdapter("Select * from [Song Artist Information]", con)
    Dim cb = New OleDbCommandBuilder(da)
    cb.QuotePrefix = "["
    cb.QuoteSuffix = "]"
    da.Fill(dt)
    Song_Artist_InformationDataGridView.DataSource = dt.DefaultView


    da.Update(dt)
End Sub

End Class