SELECT top 3  u.[Код учасника], s.[Время (сек)], k.Клуб 
FROM Соревнование AS s INNER JOIN (Клуб AS k INNER JOIN Учасник AS u ON k.[Код клуба] = u.Клуб) ON s.[Код учасника] = u.[Код учасника]
WHERE (((k.[Код клуба])=1))
union
SELECT  top 3  u1.[Код учасника], s1.[Время (сек)], k1.клуб
FROM Соревнование AS s1 INNER JOIN (Клуб AS k1 INNER JOIN Учасник AS u1 ON k1.[Код клуба] = u1.Клуб) ON s1.[Код учасника] = u1.[Код учасника]
WHERE (((k1.[Код клуба])=2))
union
SELECT top 3  u2.[Код учасника], s2.[Время (сек)], k2.клуб
FROM Соревнование AS s2 INNER JOIN (Клуб AS k2 INNER JOIN Учасник AS u2 ON k2.[Код клуба] = u2.Клуб) ON s2.[Код учасника] = u2.[Код учасника]
WHERE (((k2.[Код клуба])=3))
ORDER BY k.Клуб, s.[Время (сек)];
' собираем этот запрос таким способом
dim str$, s$
s =vbnullstring: str =vbnullstring
for i=1 to 3' сколько клубов
str=str & s & "SELECT top 3  u" & i & " .[Код учасника], s" & i & ".[Время (сек)], k" & i & ".Клуб  " & _
"FROM Соревнование AS s" & i & " INNER JOIN (Клуб AS k" & i & " INNER JOIN Учасник AS u" & i & " ON k" & i & ".[Код клуба] = u" & i & ".Клуб) ON s"  & i & _
 ".[Код учасника] = u" & i & ".[Код учасника]
WHERE (((k" & i & ".[Код клуба])=" & i & "))
s= vbcrlf & " UNION " & vbcrlf
next
str=str & "ORDER BY k.Клуб, s.[Время (сек)];"
' ну и уж "открою запрос"

dim MyQueryDef As QueryDef, cName
cName="Klubs
On Error Resume Next
Currentdb.QueryDefs.Delete cName ' если ранее созданный есть удалим - и вообще надо удалять такие запросы - также нужно учесть рост из-за них размера базы.
Set MyQueryDef = Currentdb.CreateQueryDef(cName, str)
Currentdb.MyQueryDef.Refresh
DoCmd.OpenQuery cName, acViewNormal