Объединение строк в одной таблице через запятую

[Rose16]

Дана таблица.-0wM_RfNAiw.jpg Нужно сделать SQL запрос, чтобы в итоге получилась вот такая таблица номер 2.FUxj5aUvAsk.jpg

[Aleksandr H.]

1. пишем функцию

Function allLinesRose16(SKU As String)
    Dim sSql As String
    Dim rs As DAO.Recordset
    sSql = "SELECT [Упаковка] from Таблица2 WHERE [Продукция] like """ & SKU & "*"""
    Set rs = CurrentDb.OpenRecordset(sSql)
    Do Until rs.EOF
        allLinesRose16 = allLinesRose16 + ", " & (rs(0) & "")
        rs.MoveNext
    Loop
    If Len(allLinesRose16) > 2 Then allLinesRose16 = Mid(allLinesRose16, 2)
    Set rs = Nothing
End Function

2. пишем запрос

SELECT Таблица2.Продукция, Таблица2.Цех, allLinesRose16([Продукция]) AS Выражение1
FROM Таблица2
GROUP BY Таблица2.Продукция, Таблица2.Цех, allLinesRose16([Продукция]);

3. запускаем запрос с п.2
4. для цеха - допиливаем по аналогии.

[Rose16]

не работает( пишет : обнаружены символы за пределами SQL

[Aleksandr H.]

Сообщение от Rose16

не работает( пишет : обнаружены символы за пределами SQL

Значит неправильно написано.
Кста, почему 1245-98 на 2 строки разбивается?

[Rose16]

Потому что в одном Цех 3 только, а в другом и Цех1, Цех3
задание такое

[Rose16]

в любом случае спасибо большое!огроменное)