How to save Datatable

[ch46guy]

I'm trying to save the entire datatable. The datatable is named DataTableGrid1. Any suggestions why this isnt working.

Thanks

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sql As String
        sql = String.Format("insert * from notes")
        Dim con = db.GetConnection
        Dim cmd As New OleDbCommand(sql, con)
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(cmd)


        'lookup dataset changes


        da.Update(DataGridView1) 'Fill Dataset with Table data


    End Sub