Я бы использовал UNION и формировал бы, и открывал в VB:
Dim rs As DAO.Recordset, db As DAO.Database, strSQL
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Категория FROM t01 GROUP BY Категория;")
strSQL = ""
With rs
Do Until .EOF
strSQL = IIf(strSQL > "", strSQL & " UNION ", strSQL) & "SELECT TOP 3 Категория, Товар, Цена FROM t01 WHERE Категория='" & !Категория & "' ORDER BY Цена DESC"
.MoveNext
Loop
End With
rs.Close
db.QueryDefs("qry1").SQL = strSQL
DoCmd.OpenQuery "qry1"

Правильно, а я поленился подумать...