Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As _
     System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles mAdapter.RowUpdated
                If e.StatementType = StatementType.Insert Then
                    Dim cmdNewID As New OleDb.OleDbCommand("SELECT @@IDENTITY", _
                      mCon.Connection)
                    e.Row("ID") = CInt(cmdNewID.ExecuteScalar)  'Hier dein 
                    ' Autowertfeldname eintragen
                End If
         End Sub