Du kan sätta till en kolumn till tabellen i datasetet
Dim workColumn As DataColumn = dsDataset.tables(0).Columns.Add("ID", typeof(Int32))
workColumn.AutoIncrement = true
workColumn.AutoIncrementSeed = 1 'vilken tal den skall börja med
workColumn.AutoIncrementStep = 1 'ökning för varje rad