С виду все в порядке. Может, ты ее вызываешь криво?

Чего влез, спрашивается? "Фигня", "Барахло"...
Ты сам "барахло".

Функция нормальная.
+ к ней если 1/4 мозгов, то все работать будет.

Ты сам понимаешь, что она делает?

А зачем тогда говоришь так?

Ей надо Id по порядку (по возрастанию/убыванию) и в количестве, в котором они встречаются в контексте подсовывать.

А зачем тебе помогать, если ты мою функцию завтра тоже дрянью назовешь?..

Все в сад.

Да нафик ты нужен, кипятиться об тебя. Просто почем зря чужой труд охаиваешь. Ведь не они виноваты, что ты что-то там недопонял.

Чтоб не пудрить себе мозг, я бы так написал:
[src]Public Function UnionStr2(ID As Long) As String
Dim rs as Recordset,s as string
set rs = currentdb.openrecordest("Select * from MyTable Where IdField=" & ID )
do until rs.eof
s=(s+", ") & rs!FIO
rs.movenext
loop
rs.close
set rs = nothing
unionstr2=s
End Function
Обращаю внимание, что ID я считаю числовым полем, если это строка, надо поправить первую и третью строки.
Функцию не проверял.
По идее, она для каждого ид должна возвращать все его фио из таблицы MyTable, перечисленные через запятую. Работать будет относительно медленно.

Вижу ляпсус. Надо во второй строке выкинуть "аs string", либо поправить
if len(s)=0 then
s=...
else
s=s & ...
endif

Конструкция s+", " работает только если IsNull(s)