Как сделать рандомный выбор данных из БД Access в проекте - VB

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

У меня тестовая программа и нужно чтоб 100 вопросов которые в базе данных какждый раз в перемешку выбирались...

Решение задачи: «Как сделать рандомный выбор данных из БД Access в проекте»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public masv
 
Public Function randomQuestion(path) ' As ADODB.Recordset
'path - путь к БД
    Dim rst As Object, cn As Object
    Dim s
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Mode=Share Deny None;Persist Security Info=False"
    Set rst = CreateObject("ADODB.Recordset")
    Randomize
    s = "select * from Таблица1 order by Rnd(Код)"
    rst.Open s, cn, 1 'adopenkeyset
    masv = rst.GetRows 'Загоняем рекордсет в паблик-массив
'    Set randomQuestion = rst
    Set rst = Nothing
    Set cn = Nothing
End Function
 
Sub srandomQuestion()
    Dim i, j
    With randomQuestion("C:\Temp\db3.mdb")
    For i = 0 To UBound(masv, 2)
        Debug.Print masv(0, i), masv(1, i), masv(2, i), masv(3, i), masv(4, i), masv(5, i)
    Next
    End With
End Sub