Its easy make a table and add question,with three wrong and one right ans with serial no
Then in your form get max(serial no) table then
use this code
dim n,i as integer
Dim num As New Random
for i = 1 to no_of_questions
n =num.Next(1, max_serial_no)
dim sqlqry = "select question,ans1,ans2,ans3,ans4,rightans from question_table where serial_no = " & n & ""
next