' ***** (step 3) *****

randomize
For i=1 to 5
currentRR = cLng(rnd*rCount+0.5)
ID1 = RRs(currentRR)

' ***** (step 4) *****

sql = "SELECT * FROM qryArticoliInVendita_tutti WHERE ID=" & ID