Dataset UPDATE naar datatable

    Dim con As New OleDb.OleDbConnection
    Dim sql As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim dbProvider As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
    Dim dbSource As String = "Data Source = " & My.Application.Info.DirectoryPath & "\Bestanden\" & "DBase.mdb"

    Public dim_RijNR As Integer

   ' Public Sub DBase_Update()
    Public Sub DBase_Update()
        Dim temp_Update_NR = TextBox1.Text
        Dim temp_Update_Naam = TextBox2.Text
        Dim temp_Update_Jaar = TextBox3.Text

        Try
            Dim cb As New OleDb.OleDbCommandBuilder(da)

            ds.Tables("DBase").Rows(dim_RijNR).Item(1) = temp_Update_NR
            ds.Tables("DBase").Rows(dim_RijNR).Item(2) = temp_Update_Naam
            ds.Tables("DBase").Rows(dim_RijNR).Item(3) = temp_Update_Jaar

            da.Update(ds, "DBase")

  Dim sqlQRY As String = "INSERT INTO tbl_dbase (Number, Title, Year) Values ('11', '22', '33')"

        Dim conn As OleDbConnection = New OleDbConnection(cnString)

            conn.Open()

            Dim cmd As OleDbCommand = New OleDbCommand(sqlQRY, conn)

            cmd.ExecuteNonQuery()

             Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        Finally

        End Try
    End Sub

Dim cmd As New OleDb.OleDbCommand(sqlQRY, conn)
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                da.InsertCommand = cb.GetInsertCommand ' Als INSERT commando
                da = New OleDb.OleDbDataAdapter(sqlQRY, conn)
                cmd.ExecuteNonQuery()