帮忙看看下面的代码为什么不能实现将数据更新到数据库解决思路

帮忙看看下面的代码为什么不能实现将数据更新到数据库
Dim   con   As   New   OleDb.OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data   Source=d:\ep.mdb ")
                con.Open()
                Dim   rw   As   DataRow
                dba   =   New   OleDb.OleDbDataAdapter( "select   *   from   dlxx ",   con)
                Dim   upcmd   As   New   OleDbCommandBuilder(dba)

                dba.Fill(ds,   "123 ")
                rw   =   ds.Tables( "123 ").Rows(0)
                rw.BeginEdit()
                rw(1)   =   "1547 "
                rw.EndEdit()
                rw.AcceptChanges()
         

                '   dba.UpdateCommand.ExecuteNonQuery()
                dba.Update(ds,   "123 ")

------解决方案--------------------
去掉 rw.AcceptChanges()


*****************************************************************************
欢迎使用****论坛专用阅读器 : **** Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
------解决方案--------------------
对，去掉 rw.AcceptChanges()