Случайный запрос к базе данных - VB

Формулировка задачи:

Есть база данных "Вопросы" надо создать запрос к ней на случайный выбор записей, в запросе всё работает
_{SELECT TOP 4 *
FROM Вопрос
ORDER BY RND(КодВопросы)}
Как только перевожу на форму в vb.net - так выдаёт одни и теже значения и рандомно не выбирает.
_{Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.ВопросTableAdapter.FillBy_Случай(Me.ВопросыDataSet.Вопрос)
End Sub}
Не могу разобраться почему не меняются значения.
Заранее спасибо.

Решение задачи: «Случайный запрос к базе данных»

textual
                            Листинг программы 
                        
                            SELECT        TOP 3 *
FROM            Вопрос
ORDER BY Rnd(- (10000000 * TimeValue(NOW()) * КодВопросы))