ник: snipe
dim rs as recordset 'описываем переменную
set rs= currentdb...............................................'присваиваем переменной набор записей
dim asd as text ' текстовая переменная
rs.movelast : rs.movefirst ' сбегали взад перед
if rs.recordcount>0 then ' проверили количество записей
for i=1 to rs.recordcount 'цикл по строкам
for j=0 to 4 'цикл по столбцам (предположим что мы знаем что в табле 5 столбцов)
asd=asd & rs.fields(j) ' будем собирать книгу из таблы - fields это номер столбца начинается с 0
next j ' закрыли цикл по столбцам
if i<rs.recordcount then rs.movenext ' если запись не последняя то перейти на другую строку рекордсета
next i закрыли цикл по строкам
end if ' закрыли условие
пока вот так
но там есть и другие способы (циклы Do свойства ресордсета ) - но об этом сам почитаешь