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