Private Sub noroloji_Click()

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

End Sub

"TOP 50" bölümünü kendinize göre değiştire bilirsiniz...