datatable的更新问题

Dim total As Double 
Dim objconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=F:\restaurant.mdb") 
Dim adapter As New OleDbDataAdapter("select * from today", objconn) 
Dim ds As New DataSet 
Dim newds As New DataSet 
Dim mytable As New DataTable("today") 
Dim myrow As DataRow 

objconn.Open() 
ds.Tables.Add(mytable) 
adapter.Fill(ds, "today") 

'将第一行的第2列的数值加1 
myrow = mytable.Rows(0) 
Dim number As Integer 
'myrow.Item(1)是读取myrow中的第2列的数据 
number = myrow.Item(1) 
number = number + 1 
myrow.Item(1) = number 

‘更新数据库 
newds = ds.GetChanges() 

If Not newds Is Nothing Then 
     Dim commandbuild As New OleDbCommandBuilder(adapter) 
     Try 
          adapter.Update(newds.Tables("today")) 
          Catch ex As Exception 
          Catch ex2 As OleDbException 
      End Try 
End If 
objconn.Close() 


我这种方法可以更新数据库，但是我听说还可以用acceptchange来更新数据库，不知道怎莫写，请教高手，谢了。另外，我另一个问题，就是，也是这种方法，不过我在datatable里增加了新的一行datarow，也是用上面的方面跟新数据库，这次就不更新了，不知道怎抹回事，各位能否回答我一下。