rowState problems

The rowstate in my dataTable(without dataset) does not change (or gets changed back to 'unchange') when I want to add/delete back to the datasource. Its wierd because I am allowed to update rows. Basically, I can update the datasource but not add or delete. I don't get any errors and I'm connecting to an Access DB. Thank you for any help. Here is some code.

sub filldgPubAuthors(pubID as integer)
'retrives data and fills datatable
Dim objConnection as new OledbConnection(ConfigurationSettings.AppSettings( "StrConnection"))
dim objCmd As New OleDbCommand()
Dim objParam As OleDbParameter
With objCmd

.Connection = objConnection
.CommandText = "[qryPubAuthorWeb]"
.CommandType = CommandType.StoredProcedure
objParam = .Parameters.Add("PublicationID", OleDbType.integer)
End With

objParam.Direction = ParameterDirection.Input
objParam.Value = pubID

Try

myAdapter = New OledbDataAdapter(objCmd)

addPrimaryKey()
myAdapter.Fill(dtPubTable)
viewState("pubTable") = dtPUbTable

dgPubAuthors.dataSource = viewState("pubTable")
dgPubAuthors.databind()

'dgPubAuthors.Datasource = objDR
'dgPubAuthors.DataBind()

Catch objError As Exception

labelError.Text = objError.Message

Finally

objConnection.Close()

end try

end sub
sub AddDgINfo()
'adds new row to the datatable
dtPubTable = Ctype(viewState("pubTable"),Datatable)
dim TempRow as Datarow
tempRow = dtPubTable.NewRow()

tempRow("dlOrder") = txtOrder.text
tempRow("Name") = dlPersonID.selectedItem.text
tempRow("PersonID") = dlPersonId.selectedItem.value
tempRow("Pubrole") = dlRole.selectedItem.text
tempRow("PubroleID") = dlRole.selectedItEm.value
tempRow("Contribution") = txtContribution.text

dtPubTable.Rows.Add(TempRow)
response.write(temprow.RowState.ToString)
temprow.RowState = DataRowState.Added
viewState("pubTable") = dtPUbTable

end sub


sub dgData_Delete(obj as object, e as DataGridCommandEventArgs)
'this deletes a row in the datatable

dim senderGrid as Datagrid = cType(obj, datagrid)

generateDataTable()

dim iId as string = Ctype(e.Item.FindControl("ID"), label).text
dim dr as datarow = dtPubtable.Rows.Find(int32.parse(iId))

dtPubTable.Rows.remove(dr)
viewState("pubTable") = dtPUbTable
dgPubAuthors.EditItemIndex = -1
dataTableBind()

end sub

sub updateChild()
'updates the datasource
dtPubTable = cType(viewState("pubTable"),datatable)
dtPubTable.Columns.remove("Name")
dtPubTable.Columns.remove("PubRole")

itable = dtPubTable.getChanges()

dim strSQL as string = "SELECT tblPubAuthor.PubAuthorID, tblPubAuthor.PublicationID, tblPubAuthor.PubRoleID, tblPubAuthor.PersonID, tblPubAuthor.dlOrder, tblPubAuthor.Contribution " & _
"FROM tblPubAuthor " & _
"WHERE (((tblPubAuthor.PublicationID)=" & ViewState("hidPubID") & "));"

dim objCommand as new oledbCommand(strSQL,objConnection)


myAdapter.selectCommand = objCommand

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)

myAdapter.Update(dtPubTable)

dtPubTable.AcceptChanges()

end sub