Dim R As Recordset
Dim Mem As String

Set R = CurrentDb.OpenRecordset("SELECT ТекстМанипуляций.Текст as Текст FROM (ТекстМанипуляций RIGHT JOIN Товары ON ТекстМанипуляций.Код = Товары.Текст) RIGHT JOIN (Заказы RIGHT JOIN Заказано ON Заказы.КодЗаказа = Заказано.КодЗаказа) ON Товары.КодТовара = Заказано.КодТовара WHERE (((Заказы.КодЗаказа) = " & Me.Заказы_КодЗаказа & ")) GROUP BY ТекстМанипуляций.Текст HAVING (((ТекстМанипуляций.Текст) Is Not Null)) ORDER BY Var(Товары.Артикул);")

While Not R.EOF
Mem = Mem & R("Текст") & vbCrLf
R.MoveNext
Wend

Me.MEMO.Caption = Mem

Set R = Nothing

http://www.sql.ru/forum/1078481/podskazhite-gde-rezhet-peremennuu