В свое время мне пришлось потестировать много различных вариантов генераторов случайных чисел. Что осталось в сухом остатке? - Встроенные генераторы языков программирования (Borland C++, Borland Pascal ...) однозначно дают более длинные последовательности неповторяющихся значений, т.е. являются более качественными генераторами псевдослучайных последовательностей. Поэтому лучше всего использовать именно эту возможность (функция Rnd). Как и другие генераторы она генерирует ВЕЩЕСТВЕННЫЕ ЧИСЛА в диапазоне от 0 до 1. После умножения на необходимое макс.значение необходимо выделить целую часть числа. При генерации предыдущее значение используется для генерации следущего. В задачнике спрашивается - где взять первое значение? Эту задачу решает процедура Randomize, которая может иметь целый параметр. В качестве параметра чаще всего используют системные часы - производят различные вычисления с частями даты и времени.

[SRC vba]
Public Function MyRnd(Optional V) As Long
MyRnd = Int(Rnd * Диапазон) + Сдвиг
End Function
[/SRC vba]

Вызов Randomize без параметров производится в методе Load формы только один раз. Результаты запроса
[SRC vba]
SELECT КодРегиона, myrnd([КодРегиона]) AS N, Регион
FROM Регионы;
[/SRC vba]
при Диапазон = 500000 и Сдвиг=1000 привожу ниже:

[SRC vba]
Public Function MyRnd(Optional V) As Long
MyRnd = Int(Rnd * Диапазон) + Сдвиг
End Function
[/SRC vba]

Вызов Randomize без параметров производится в методе Load формы только один раз. Результаты запроса
[SRC vba]
SELECT КодРегиона, myrnd([КодРегиона]) AS N, Регион
FROM Регионы;
[/SRC vba]
при Диапазон = 500000 и Сдвиг=1000 привожу ниже:

Пожалуйста. Обращайтесь еще...
Кстати, насчет того, что запрос сам умеет нумеровать свои записи. А не табличная-ли форма, в которой представляются результаты запроса это делает? Если в листбоксе сделать присоединееый столбец=0, то тоже будет возвращать номер строки.