Вам не нужно использовать SelectObject - извлекайте ту линию.
Ваш звонок OpenReport не все еще правильно. Если допустить, что «DriverName» будет полем, котор вы используете для того чтобы фильтровать рапорт:
С rst
.MoveFirst
Пока не .EOF
«Отчет о зарплаты штата» DoCmd.OpenReport, acViewPreview, «DriverName='" &. Поля («StaffName») &» '«
DoCmd.PrintOut
acReport DoCmd.Close, «отчет о зарплаты штата»
.MoveNext
Wend
Закончитесь с