Dediğiniz şekilde her defasındasoruları karıştırıyor, aynı soruları sormuyor.

Private Sub noroloji_Click()

On Error GoTo Err_noroloji_Click



    Dim Sayi As String

Sayi = InputBox("Adet giriniz lütfen", "Çözülecek Soru Adedi")

Form.RecordSource = "SELECT TOP " & Sayi & " neuroBoards.mainCategory, neuroBoards.question, neuroBoards.answer FROM neuroBoards WHERE (((neuroBoards.mainCategory)=14)) ORDER By rnd(-(questionID)*Time());"



Exit_noroloji_Click:

    Exit Sub



Err_noroloji_Click:

    MsgBox ("Soru Adedi girmediniz")

    Resume Exit_noroloji_Click





End Sub 

Bununla ile de kullanıcıya istediği kadar soruyu baştan seçe bilme imkanı veriyor ben sadece nöroloji butonuna uyarladım siz kendinize göre ayarlayınız.