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

& " AS [q]"

, то показывает значение которое есть в первой записи, в остальных ошибка.
Аналогичный работающий код:

Public Function LastMeeting(kod)
Dim s
    s = "SELECT Min([дата_заседания]) " _
    & " FROM (SELECT Заседания.дата_заседания " _
    & " FROM Данные INNER JOIN Заседания ON Данные.код = Заседания.код_записи " _
    & " WHERE (((Заседания.дата_заседания)>=Date()) " _
    & " And ((Данные.код)=" & kod & "))) AS [q]"
    LastMeeting = CurrentDb.OpenRecordset(s).Fields(0)
End Function

Код , который нуждается в исправлении:

Public Function ArbitrName(kod)
Dim Ar
      Ar = "SELECT ФИО.[фио] " _
      & " FROM ФИО inner join Данные On ФИО.Код=Данные.фио " _
      & " WHERE Данные.код=" & kod & " AS [q]"
      ArbitrName = CurrentDb.OpenRecordset(Ar).Fields(0)
End Function

http://www.sql.ru/forum/1119767/kod-dlya-podstanovki-znacheniya-v-pole-lentochnoy-formy