كيف أجعل السؤال غير مكرر برنامج مسابقة ثقافية

السلام عليكم ورحمة الله وبركاته

عملت برنامج مسابقة ثقافية الاسئلة موجودة في قاعدة البيانات

البرنامج يقوم بعرض 10 أسئلة عشوائية من 30 سؤال

لكن واجهتني مشكلة في تكرار بعض الاسئلة المعروضة

كود الاسئلة العشوائية

Private Sub Question()

Dim Rndnum As Integer

Randomize

Rndnum = Int((19 * Rnd) + 1)

If Val(lblQno) > 0 And Val(lblQno) <= 30 Then

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Move Rndnum

Else

Rndnum = 1

End If

End Sub

السؤال هو كيف أجعل الاسئلة غير مكررة؟؟؟

اتمنى انكم فهمتم قصدي

أرجوا المساعدة