OleDbConnection，删除数据不能成功?

[双辽]

Dim conn = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=g:\aa.mdb")
Dim da = New OleDbDataAdapter("Select * From bz", conn)

Dim ds = New DataSet()
da.Fill(ds, "student")
ds.Tables("student").Rows(0).Delete()‘删除第一行
ds.AcceptChanges()

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(ds, "student")

ds = New DataSet()
da.Fill(ds, "student")


为什么上述代码不报错，但是也没有删除数据库中的第一行，数据库中有主键，插入一行、修改一行数据执行da.update命令均成功，只是在删除一行数据不能成功，也不报错，为什么？我用的是vb2015，

[双辽]

Dim conn = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=g:\aa.mdb")
Dim da = New OleDbDataAdapter("Select * From bz", conn)
Dim ds = New DataSet()
da.Fill(ds, "student")

'填加一个记录
Dim dr As DataRow = ds.Tables("student").NewRow
'dr("Userid") '主键
dr("UserPwd") = 8888.888
dr("UserName") = "张三"
ds.Tables("student").Rows.Add(dr)

Dim scb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(ds, "student") '数据库成功增加一条记录
conn.Close()

[双辽]

Dim conn = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=g:\aa.mdb")
Dim da = New OleDbDataAdapter("Select * From bz", conn)
Dim ds = New DataSet()
da.Fill(ds, "student")

ds.Tables("student").Rows(0)(1) = "双辽"
ds.Tables("student").Rows(1)(1) = "海南"

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(ds, "student") '可以成功修改数据

ds = New DataSet()
da.Fill(ds, "student")