[Al-x]

Raven B.:
или это только кажется

Эта конструкция выводит список полей со значениями первой записи.

Я думаю, что имелось ввиду вот это (id и val имена полей в таблице):

     With rst
        Do
        MsgBox !id & " - " & !Val
        .MoveNext
        Loop Until .EOF = True
     End With