How to update a dataset with oledb VB.NET

Dim i As Integer = 0
        Dim strA As String = ""
        Dim con As New OleDb.OleDbConnection
        Dim da As OleDb.OleDbDataAdapter
        Dim ds As New DataSet   'WIP Header Data
        Dim sql As String
        Dim DBprovider As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        Dim DBSource As String = "Data Source = C:\Temp\TestDataBase.mdb"

        con.ConnectionString = DBprovider & DBSource

        con.Open()

        sql = "SELECT * FROM tblRecord"
        da = New OleDb.OleDbDataAdapter(sql, con)
        Dim cb As New OleDb.OleDbCommandBuilder(da)

        da.Fill(ds, "MyData")

        MaxRows = ds.Tables("MyData").Rows.Count

        Debug.Print(ds.Tables("MyData").Rows.Count)

        'Code to modify data in the DataSet goes here, ie:
        ds.Tables("MyData").Rows(0).Item("StandardName") = "Update Test"


        da.UpdateCommand = cb.GetUpdateCommand(True)

        da.Update(ds, "MyData")

        con.Close()