VB.NET 2005+Access 增加记录问题

[chenfw99]

主要代码如下：运行的时候提示是添加成功，但是在数据库中就是没有新纪录，请哪位兄弟帮我看看原因何在？
Try
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" + Application.StartupPath + "\Database1.mdb")
Conn.Open()
Dim MyAdapter As New OleDbDataAdapter("select * from [User]", Conn)
Dim MyBuilder As New OleDbCommandBuilder(MyAdapter)
Dim MyDataSet As New DataSet()
MyAdapter.Fill(MyDataSet, "User")
Dim MyKeys(1) As DataColumn
MyKeys(0) = MyDataSet.Tables("User").Columns("Users")
MyKeys(1) = MyDataSet.Tables("User").Columns("Pass")
MyDataSet.Tables("User").PrimaryKey = MyKeys
Dim MyUsers() As String = {Me.TextBox1.Text, Me.TextBox2.Text}
Dim MyFindRow As DataRow = MyDataSet.Tables("User").Rows.Find(MyUsers)
If MyFindRow Is Nothing Then
Dim MyNewRow As DataRow = MyDataSet.Tables("User").NewRow()
MyNewRow("Users") = MyUsers(0)
MyNewRow("Pass") = MyUsers(1)
MyDataSet.Tables("User").Rows.Add(MyNewRow)
Else
MessageBox.Show("该用户已经存在！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Conn.Close()
Return
End If
MyAdapter.Update(MyDataSet, "User")
Conn.Close()
MessageBox.Show("增加用户操作成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("增加用户出错", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try

[chenfw99]

自己顶一下，哪位高手有时间的话帮我看看吧～～

[chenfw99]

怎么还是没有人回答啊？难道问题太简单，不屑一顾吗？

[ldming]

帮顶！！希望有高手指导！！

[JeffChung]

MyAdapter.Update(MyDataSet, "User")
'后面加一句
MyDataSet.AcceptChanges()

[chenfw99]

我知道原因了。
MyDataSet.AcceptChanges() 这个不需要的。
Dim MyAdapter As New OleDbDataAdapter("select * from [User]", Conn) 这里的Conn换成"Provider=Microsoft.Jet.OLEDB.4.0;data source=" + Application.StartupPath + "\Database1.mdb"就可以了。