Плиз хелп - VB

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

как перебрасывать числа в цикл for next из access ?
тоесть в access есть столбец случайных чисел
их надо обработать в vb используя цикл for
про кнопку data знаю но как ее состыковать с for?

Решение задачи: «Плиз хелп»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> c <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Dim</font> r <font color="blue">As</font> <font color="blue">Object</font>

<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> Err_Exit

<font color="blue">Set</font> c = CreateObject(<font color="teal">"ADODB.Connection"</font>)
<font color="blue">Set</font> r = CreateObject(<font color="teal">"ADODB.Recordset"</font>)

c.<font color="blue">Open</font> <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="</font> & DBPATH & <font color="teal">";Persist Security Info=False"</font>
r.<font color="blue">Open</font> <font color="teal">"SELECT * FROM "</font> & TABLENAME, c
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> r.EOF
    Debug.<font color="blue">Print</font> r.fields(FIELDNAME)
    r.MoveNext
<font color="blue">Loop</font>

<font color="blue">Set</font> r = <font color="blue">Nothing</font>
<font color="blue">Set</font> c = <font color="blue">Nothing</font>

<font color="blue">Exit</font> <font color="blue">Sub</font>
Err_Exit:
    MsgBox Err.Number & Err.Description

                        