Просто чтобы убедиться, что я понимаю, что вы хотите:
Учитывая таблицу, вы хотите случайным образом выбрать одно из значений идентификатора из этой таблицы.
Если это так, это должно сделать это:
Dim rand As New Random()
Dim record As Integer = rand.[Next](0, myDataTable.Rows.Count)
Dim randomID As Integer = CInt(myDataTable.Rows(record)("ID"))
У нас есть вся информация, необходимая для случайного выбора строки и расширения случайным образом одного из значений ID в таблице.