Может кому понадобится...
Цикл по таблице.
Используемые объекты
Таблица "tblPeoples" и модуль "mdl_Cycle"
Текст модуля "mdl_Cycle"

Option Compare Database
Option Explicit
--------------------------------------------------------------------------------

'********************************************************
' работа с набором записей в цикле,
' начаная от простейшего перебора записей фиксированной
' таблицы текущей базы с фиксированними полями
'********************************************************
'--------------------------------------------------------
' Цикл по записям таблицы "tblPeoples" от начала до конца
'--------------------------------------------------------
'База данных
Dim db As Database

'Набор записей
Dim rs As Recordset

'Строка
Dim str As String

'Количество записей в наборе записей
Dim lngRecordCount As Long

' db - текушая база данных
Set db = CurrentDb

Set rs = db.OpenRecordset("tblPeoples", dbOpenDynaset)
' rs - набор записей на основе таблицы "tblPeoples"
' При инициализации набора записей мы можем точно
' определить, есть ли в этом наборе записи или нет.
' Свойство "RecordCount" набора записей посли его
' инициализации, по идее, должна сождержать количество
' записей набора, однако это не так. Если в наборе есть
' записи это свойство отлично от нуля, но не содержит
' их количество. Для определения количества записей
' необходимо перейти на последнюю запись набора, и после
' этого в свойстве "RecordCount" будет находиться
' количество записей набора.

'Если в наборе rs есть записи...
If rs.RecordCount <> 0 Then
rs.MoveLast
' Переходим на последнюю запись (чтобы "RecordCount"
' содержало верное значение)

lngRecordCount = rs.RecordCount
' Считываем количество записей в переменную

rs.MoveFirst 'Переходим на первую запись набора
' Заполняем текстовую переменную str количеством записей
str = "Количество записей в таблице ""tblPeoples"": " & lngRecordCount & vbCrLf

'Свойство EOF (End Of File) набора записей становиться истинным ПОСЛЕ последней записи набора,
'точно как и свойство BOF (Begin Of File) становиться истинным ПЕРЕД первой записью набора.
'Набор записей можно изобразить примерно так:
'
' BOF
' First Record
' ............
' ............
' ............
' Last Record
' EOF
'
'Цикл "Пока не кончатся записи в наборе rs"
Do Until rs.EOF
'Добавляем в переменную str имнена полей, их
' значения и символ перевода строки
str = str & "ID_People: " & rs![ID_People] & vbCrLf
str = str & "ID_RecordStatus: " & rs![ID_RecordStatus] & vbCrLf
str = str & "LastName: " & rs![LastName] & vbCrLf
str = str & "FirstName: " & rs![FirstName] & vbCrLf
str = str & "MiddleName: " & rs![MiddleName] & vbCrLf
str = str & "PeopleSex: " & rs![PeopleSex] & vbCrLf
str = str & "BirthDate: " & rs![BirthDate] & vbCrLf
str = str & "------------" & vbCrLf
rs.MoveNext
'Переходим на следующую запись

Loop
'Конец цикла
Else
'Если записей нет...
' Заполняем текстовую переменную str сообщением об
' отсутствии записей
str = "Таблица ""tblPeoples"" не содержит записей."
End If
'Печатаем содержимое переменной str в окне отладки
Debug.Print str
rs.Close
'Закрываем переменную набора записей

db.Close
'Закрываем переменную базы данных
End Sub
--------------------------------------------------------------------------------