vbnet msde

[Stefan]

hello,
i'm new programming ado.net and msde
i have the following problem:
when cmgegevens.addn ew is called the binded trextboxes don't clear?
I can edit records, but when i'm trying to add a new one , i get the
following error:
column 'id' is read only .
But when i look at contacts table a new id is created but the fields i
filled in are empty (null) in the database
i have form (contacts entry/edit)
declarations:
Private daPostcode As SqlDataAdapter

Private dsPostcode As New DataSet

Private command As SqlCommand

Private WithEvents da As SqlDataAdapter

Private dsGegevens As New DataSet

Private cmGegevens As CurrencyManager

Private cbGegevens As SqlCommandBuild er

Private dv As DataView

Private boolStartup As Boolean = True

formload:

command = New SqlCommand("sel ect * from dat_contacten", cn)

da = New SqlDataAdapter( command)

da.Fill(dsGegev ens, "gegevens")

da.FillSchema(d sGegevens, SchemaType.Sour ce, "gegevens")

dsGegevens.Tabl es("gegevens"). Columns("id").A utoIncrementSee d = -1

dsGegevens.Tabl es("gegevens"). Columns("id").A utoIncrementSte p = -1

dv = dsGegevens.Tabl es("gegevens"). DefaultView

cmGegevens = CType(Me.Bindin gContext(dv), CurrencyManager )

' cmGegevens.Posi tion = 0

Call koppel() 'add some databindings

cbGegevens = New SqlCommandBuild er(da)

btnnew.click:
cmGegevens.AddN ew()

Private Sub koppel()

txtBedrijf.Data Bindings.Add(Ne w Binding("text",
dsGegevens.Tabl es("gegevens") , "bedrijf"))

txtVoornaam.Dat aBindings.Add(N ew Binding("text",
dsGegevens.Tabl es("gegevens") , "voornaam") )

txtNaam.DataBin dings.Add(New Binding("text", dsGegevens.Tabl es("gegevens") ,
"naam"))

txtAdres.DataBi ndings.Add(New Binding("text", dsGegevens.Tabl es("gegevens") ,
"adres"))

txtpostcode.Dat aBindings.Add(N ew Binding("text",
dsGegevens.Tabl es("gegevens") , "postcode") )

txtTelPrive.Dat aBindings.Add(N ew Binding("text",
dsGegevens.Tabl es("gegevens") , "tel_prive" ))

End Sub

save button :

Try

cmGegevens.EndC urrentEdit()

da.Update(dsGeg evens.Tables("g egevens"))
Catch ex As Exception

MessageBox.Show (ex.Message & vbCrLf & ex.Source & vbCrLf & ex.StackTrace)

End Try

da.rowupdated event:

Private Sub da_RowUpdated(B yVal sender As Object, ByVal e As
System.Data.Sql Client.SqlRowUp datedEventArgs) Handles da.RowUpdated

If e.Status = UpdateStatus.Co ntinue AndAlso (e.StatementTyp e =
StatementType.I nsert) Then

Dim cmdnieuwnr As New SqlCommand("sel ect @@IDENTITY", cn)

e.Row("id") = CType(cmdnieuwn r.ExecuteScalar , Integer)

e.Row.AcceptCha nges()

End If

End sub