DataSet.AcceptChanges not working

[pushpendra vats]

Hi!!,

I have created a dataadapter and datasdet through code .On
button i have added two records in dataset and called
acceptchanges method. on second button i am inserting the
records in database with the helpof update method of
dataadapter. But no records are inserted.Now if i remove
the dataset.acceptchanges method then it starts adding the
records.....
what could be the problem....
code follows......

Thanks
Pushpendra

Dim da As New OleDb.OleDbDataAdapter("select * from
test", "Provider=SQLOLEDB;Data Source=192.168.16.4;Initial
Catalog=Northwind;user id=sa;password=;")
Dim myConnection As New OleDb.OleDbConnection
("Provider=SQLOLEDB;Data Source=192.168.16.4;Initial
Catalog=Northwind;user id=sa;password=;")
Dim dt As DataTable
Dim dr As DataRow
Dim ds As New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
da.Fill(ds, "test")


End Sub

Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
dt = ds.Tables("test")
da.InsertCommand = New OleDb.OleDbCommand("insert
test values('" + TextBox1.Text + "','" + TextBox2.Text
+ "')", myConnection)


Dim i As Integer
dr = dt.NewRow()
dr("name") = TextBox1.Text
dr("address") = TextBox2.Text

dt.Rows.Add(dr)
ds.acceptchanges()
MsgBox(dt.Rows.Count())
End Sub

Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Try

da.Update(ds, "test")
MsgBox("Record saved")
Catch er As Exception
MsgBox(er.ToString)
End Try
End Sub

 

[Cor Ligthert]

For the ones who are intrested I have answered this question in the original
thread with this

The acceptchanges is to prevent updating.
It stands for Accept the changes as if you did the updating.

Cor