Updating Data Adapter

[lault]

My problem is in the following code. I get no errors or warnings, the project compiles, yet the database (*.mdb on local machine) is never updated. This code is executed when the user presses a "Save" button.

      '' Setup SQL statement
        Dim sSQL As String
        sSQL = "Select * FROM custdata"

        '' Open database connection
        OpenDB()

        '' Setup data adapter and row number
        Dim rownum As Short
        Dim da As New OleDb.OleDbDataAdapter(sSQL, cn)

        '' Setup data set
        Dim ds As New DataSet()

        '' Setup Command Builder for updating dataset
        Dim comm As New OleDb.OleDbCommandBuilder(da)
        da.UpdateCommand = comm.GetUpdateCommand

        '' Fill data set 
        da.Fill(ds, "custdata")

        '' Add new row to data set
        ds.Tables("custdata").NewRow()

        '' Get number of rows
        rownum = ds.Tables("custdata").Rows.Count - 1

        '' Save customer data to dataset
        ds.Tables("custdata").Rows(rownum).Item("fname") = txtfname.Text
        ds.Tables("custdata").Rows(rownum).Item("middle") = txtmiddle.Text
        ds.Tables("custdata").Rows(rownum).Item("lname") = txtlname.Text
        ds.Tables("custdata").Rows(rownum).Item("street") = txtstreet.Text
        ds.Tables("custdata").Rows(rownum).Item("city") = txtcity.Text
        ds.Tables("custdata").Rows(rownum).Item("state") = txtstate.Text
        ds.Tables("custdata").Rows(rownum).Item("zip") = Int32.Parse(txtzip.Text)

        '' Update database
        ds.AcceptChanges()
        da.Update(ds, "custdata")

        '' Close database connection
        CloseDB()

any help would be apreciated. Thanks

[Doorstep]

get rid of the ds.AcceptChanges()
that should fix the problem.