Как перебрасывать числа в цикл for next из access ? - VB

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

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

Решение задачи: «Как перебрасывать числа в цикл for next из access ?»

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

                            Dim tabl1 As Recordset
Dim imya, stroka As String
Set tabl1 = CurrentDb.OpenRecordset("XXX") 'выбранная таблица
imya = "YYY" 'выбранное поле
tabl1.MoveLast
tabl1.MoveFirst
Do Until tabl1.EOF
    stroka = Trim(tabl1.Fields(imya)) 
'присваеваем переменной каждое по очереди значения из таблицы
'а затем в цикле соответственно их обрабатываешь как хочешь
    tabl1.MoveNext 'переход на другую строку
Loop
Close
                        