auto increment [resolved]

[digita]

In my Ms Access Database i have set the "Id" Column to Auto Increment. Now i have the following code:

Private Sub DataAdd()
        Dim oAdapter As OleDbDataAdapter
        Dim oBuild As OleDbCommandBuilder
        Dim oDR As DataRow
        Dim strSQL As String
        Dim strConn As String
 
        ' Create New DataRow Object From DataSet
        oDR = moDS.Tables("Gegevens").NewRow()
        oDR.BeginEdit()
 
        ' Load new data into row
        'Firts Tab: Persoonlijk
        oDR("Voorletters") = txtVoorletters.Text
        oDR("Tussenvoegsel") = txtTussenvoegsel.Text
        oDR("Achternaam") = txtAchternaam.Text
        oDR("Aanspreeknaam") = txtAanspreeknaam.Text
        oDR("Geslacht") = txtGeslacht.Text
        oDR("Adres") = txtAdres.Text
        oDR("Postcode") = txtPostcode.Text
        oDR("Plaats") = txtPlaats.Text
        oDR("Provincie") = txtProvincie.Text
        If txtGeboortedatum.Text <> "" Then
            oDR("Geboortedatum") = txtGeboortedatum.Text
        End If
        oDR("Notities") = txtNotities.Text
 
        'Second Tab: Verdere Info
        oDR("Telefoon_Prive") = txtTelefoon_Prive.Text
        oDR("Mobiele_Telefoon") = txtTelefoon_Mobiel.Text
        oDR("Telefoon_Werk") = txtTelefoon_Werk.Text
        oDR("Toestelnummer_Werk") = txtToestelnummer.Text
        oDR("Faxnummer") = txtFaxnummer.Text
        oDR("Email_Adres") = txtEmailAdres.Text
 
        'Third Tab: KTC Info
        oDR("Functie") = txtFunctie.Text
        oDR("Soort_Lid") = txtSoortLid.Text
        oDR("Lidnummer") = txtLidNummer.Text
        oDR("Ftk_Nummer") = txtFtkNummer.Text
        If txtLidSinds.Text <> "" Then
            oDR("Lid_Sinds") = txtLidSinds.Text
        End If
        oDR("Kosten_Lid_Methode") = txtBetaalMethode.Text
        oDR("Kosten_Lid") = txtKostenLid.Text
 
        'Fourth Tab: Kilometer Registratie
        oDR("Kilometer_1982") = txt1982.Text
        oDR("Kilometer_1983") = txt1983.Text
        oDR("Kilometer_1984") = txt1984.Text
        oDR("Kilometer_1985") = txt1985.Text
        oDR("Kilometer_1986") = txt1986.Text
        oDR("Kilometer_1987") = txt1987.Text
        oDR("Kilometer_1988") = txt1988.Text
        oDR("Kilometer_1989") = txt1989.Text
        oDR("Kilometer_1990") = txt1990.Text
 
        oDR("Kilometer_1991") = txt1991.Text
        oDR("Kilometer_1992") = txt1992.Text
        oDR("Kilometer_1993") = txt1993.Text
        oDR("Kilometer_1994") = txt1994.Text
        oDR("Kilometer_1995") = txt1995.Text
        oDR("Kilometer_1996") = txt1996.Text
        oDR("Kilometer_1997") = txt1997.Text
        oDR("Kilometer_1998") = txt1998.Text
        oDR("Kilometer_1999") = txt1999.Text
        oDR("Kilometer_2000") = txt2000.Text
 
        oDR("Kilometer_2001") = txt2001.Text
        oDR("Kilometer_2002") = txt2002.Text
        oDR("Kilometer_2003") = txt2003.Text
        oDR("Kilometer_2004") = txt2004.Text
        oDR("Kilometer_2005") = txt2005.Text
        oDR("Kilometer_2006") = txt2006.Text
        oDR("Kilometer_2007") = txt2007.Text
        oDR("Kilometer_2008") = txt2008.Text
        oDR("Kilometer_2009") = txt2009.Text
        oDR("Kilometer_2010") = txt2010.Text
 
        ' Tell DataRow you are done adding data
        oDR.EndEdit()
        ' Add DataRow to DataSet
        moDS.Tables("Gegevens").Rows.Add(oDR)
 
        Try
            ' Get Connection String
            strConn = ConnectionString()
            ' Build SQL String
            strSQL = "SELECT * FROM Gegevens "
            ' Create New DataAdapter
            oAdapter = _
             New OleDbDataAdapter(strSQL, strConn)
            ' Create CommandBuilder for Adapter
            ' This will build INSERT, UPDATE and DELETE SQL
            oBuild = New OleDbCommandBuilder(oAdapter)
 
            ' Get Insert Command Object
            oAdapter.InsertCommand = oBuild.GetInsertCommand()
 
            ' Submit INSERT statement through Adapter
            oAdapter.Update(moDS, "Gegevens")
            ' Tell DataSet changes to data source are complete
            moDS.AcceptChanges()
 
            ' Reload the list box
            ListLoad()
 
        Catch oException As Exception
            MessageBox.Show(oException.Message)
 
        End Try
    End Sub

This updates the database trough a dataset, but how do auto increment the Id field. If i now run this code it tell me that "Column 'Id' does not allow nulls"

So i think that i have to do something with an auto increment but how do i do that?