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

Public Function randomQuestion(path) As ADODB.Recordset
'path - путь к БД
    Dim rst As Object, cn As Object
    Dim s as String
    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, adOpenDynamic
    Set randomQuestion = rst
    Set rst = Nothing
    Set cn = Nothing
End Function

Sub srndQuestion()
    With randomQuestion("C:\Temp\db3.mdb")
    Do Until .EOF
        Debug.Print !Код
        .MoveNext
    Loop
    End With
End Sub

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