求救,我的DataGridView和DataAdapter怎么不能更新啊?
已知:

1、表A（ID , NAME, COMPANY），ID字段是主键，自动递增

2、代码如下：

Public Class frm_Main

Dim PListDA As New OleDb.OleDbDataAdapter

'初始化联系人列表
Private Sub IniPeopleList()

Dim myCMD As New OleDb.OleDbCommand( "Select * from People ", g_DBConnection)
PListDA.SelectCommand = myCMD

Dim mycbd As New OleDb.OleDbCommandBuilder(PListDA)

g_DBConnection.Open()

PListDA.Fill(DS_Main, "PeopleList ")

g_DBConnection.Close()

DG_PeopleList.DataSource = DS_Main.Tables( "PeopleList ")

End Sub

'添加联系人
Private Sub TB_PeopleAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_PeopleAdd.Click

Dim NewRow As DataRow

NewRow = DS_Main.Tables( "PeopleList ").NewRow()
NewRow.Item( "PeopleGroupID ") = l_GroupID
DS_Main.Tables( "PeopleList ").Rows.Add(NewRow)
DS_Main.Tables( "PeopleList ").AcceptChanges()
End Sub

'保存按钮
Private Sub TB_PeopleSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_PeopleSave.Click

DS_Main.Tables( "PeopleList ").AcceptChanges()
PListDA.Update(DS_Main.Tables( "PeopleList "))
DS_Main.AcceptChanges()

End Sub

End Class

[解决办法]
将DS_Main.Tables( "PeopleList ").AcceptChanges()去掉
另外你没有写存储过程
参考
Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=d:\epk.mdb;Persist Security Info=True;Jet OLEDB:Database Password=fdajhi54dg4d5f54dsg ")
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(1) = Val(TextBox2.Text)
dba.Update(ds, "123 ")