to make a more distributed random:
And a receipe
which can also be modified within a variation:
ExtractIndex =
ExtractIndex.Append(myRandom.Next() Mod dtData.Rows.Count).Distinct().toList
dtRandomSet =
ExtractIndex.Select(Function (x) dtData.Rows(x)).CopyToDataTable
EDIT-1:
just set the variable RandomSetSize to 5