database not updating

hopefully someone can give me some insight with this code, it is updating the dataset but not the database.

Thanks

'daAdapter.Update(dtChanges.GetChanges(DataRowState.Modified)

OleDbConnection1.Open()
'*************************************************************************************
Dim drnew As System.Data.DataRow = dsers.Tables("retire").Rows(0) ' defining the new row
drnew = dsers.Tables("retire").NewRow ' creating a empty row

drnew.Item("fst_name") = Trim(TextBox1.Text).ToString ' insering value into empty row
drnew.Item("ssn") = Trim(TextBox2.Text).ToString
dsers.Tables("retire").Rows.Add(drnew) ' Adding new row to dataset
dsers.AcceptChanges() ' Accepting the changes
'dsers.GetChanges()
TextBox4.Text = dsers.Tables("retire").Rows.Count
'**************************************************************************************
'* defining commandbuilder
Dim custCB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
OleDbDataAdapter1 = custCB.DataAdapter
'************************
'update the records

Dim oleDBupdateComm1 As New System.Data.OleDb.OleDbCommand()
Dim nRowsAffected As Integer
Try


oleDBupdateComm1.CommandText = "UPDATE RETIRE SET FST_NAME = @fst_name"
OleDbDataAdapter1.UpdateCommand = oleDBupdateComm1
dsers.Tables("retire").GetChanges()
OleDbDataAdapter1.UpdateCommand.Parameters.Add("@fst_name", OleDb.OleDbType.VarChar, 25, "fst_name")

OleDbDataAdapter1.Update(dsers, "retire")
nRowsAffected = OleDbDataAdapter1.Update(dsers, "retire")
TextBox2.Text = nRowsAffected
Catch myerror As Exception
MessageBox.Show(myerror.Message)
Finally
End Try
OleDbConnection1.Close()

Try removing acceptchanges

:D Thanks that did it , such a simple thing.