Dim strSQL As String = "SELECT * FROM COSTCENTER"
        Dim da As New OleDbDataAdapter(strSQL, MyBase.strCnString)
        Dim ds As New DataSet
 
        da.Fill(ds, "Costcenter")
 
        With da.TableMappings.Add("Table", "Costcenter").ColumnMappings
            .Add("Costcenter", "Costcenter")
        End With
 
        Dim tbl As DataTable = ds.Tables("Costcenter")
 
        With tbl.Columns(0)
            .AutoIncrement = True
            .AutoIncrementSeed = -1
            .AutoIncrementStep = -1
        End With
 
        tbl.PrimaryKey = New DataColumn() {(ds.Tables("Costcenter").Columns(0))}
 
        Dim row As DataRow = ds.Tables("Costcenter").NewRow
 
        row("Costcenter") =  672222
        da.Update(tbl)