VBA
dim rs as recordset
dim str as string
dim i as long
set rs=currentdb.openrecordset("запрос c группировкой из таблицы",dbopensnapshot)
str=""
rs.movelast
cnt=rs.recordcount
for i = 1 to cnt
if str<>"" then str=str & "," & rs.[автор] else str=rs.[автор]
next i
debug.print str
by me...