Como escolher um registro aleatório (numérico) de uma tabela de números?

Como faço para escolher um registro aleatório (numérico) de uma tabela de números?

Abaixo, segue parte do código que estou utilizando:

For i = 1 To 20
   a = Rnd(rcsJogosSorteados!D1)
   b = Rnd(rcsJogosSorteados!D2)
   c = Rnd(rcsJogosSorteados!D3)
   d = Rnd(rcsJogosSorteados!D4)
   e = Rnd(rcsJogosSorteados!D5)
   f = Rnd(rcsJogosSorteados!D6)
   v(1) = a
   v(2) = b
   v(3) = c
   v(4) = d
   v(5) = e
   v(6) = f
 
ReDim v1(1 To 6) As Variant
   v1(1) = v(1)
   v1(2) = v(2)
   v1(3) = v(3)
   v1(4) = v(4)
   v1(5) = v(5)
   v1(6) = v(6)
 
   v1 = BubbleSrt(v1, True)
   For j = LBound(v1) To UBound(v1)
   Next j
 
   
   With rcsJog6Dezenas
       .AddNew
           !n1 = v1(1)
           !n2 = v1(2)
           !n3 = v1(3)
           !n4 = v1(4)
           !n5 = v1(5)
           !n6 = v1(6)
       .Update
   End With

Next i


No código acima, Rnd(rcsJogosSorteados!D1) escolhe aleatoriamente o número "2" que realmente existe na coluna D1. Entretanto, a variável "a" não recebe o valor 2, e sim o valor 1. Rnd(rcsJogosSorteados!D2) escolhe aleatoriamente o valor "18" que existe na coluna D2, mas a variável "b" não recebe o valor 18, e sim 0,533424. O mesmo acontece para as demais situações. Como resolvo isso?

Dê uma espreitada;

http://www.google.pt/search?hl=pt&as_q=&as_oq=sorteio&as_sitesearch=www.maximoaccess.com&gws_rd=cr&ei=Pn_0WJHcM8HvUKSNrZAE