Уважаемые эксперты!
В коде VBA не получается работа с полем, допускающим несколько значений. Поле Фамилия таблицы Журнал задано как поле со списком, допускающим несколько значений. Есть также поле ДатаОпроса. Необходимо подсчитать, сколько раз конкретная фамилия участвовала в опросах за определенный промежуток времени. Пока я просто пытаюсь вытянуть значение поля Фамилия в строковую переменную и получаю сообщение об ошибке Run-time error ‘3061’. Слишком мало параметров. Требуется 3.
Что я делаю неправильно?

Option Compare Database
Option Explicit
Private Sub Кнопка5_Click()
Dim rstDati As DAO.Recordset
Dim qdfDati As QueryDef
Dim temp, fam As String
Const BoxTitle = "Период опроса"
Dim dbeg, dfin As Date
'ЗАПРОС ДАТ НАЧАЛА И КОНЦА ОПРОСА
temp = InputBox("Введите начальную дату опроса ЧЧ.ММ.ГГГГ", BoxTitle)
dbeg = temp
'dbeg = Format(dbeg, "dd mm yyyy")
temp = InputBox("Введите конечную дату опроса ЧЧ.ММ.ГГГГ", BoxTitle)
dfin = temp
Set qdfDati = CurrentDb.CreateQueryDef("", "PARAMETERS db DateTime, df DateTime; " _
& "SELECT tblЖУРНАЛ.doprosa, tblЖУРНАЛ.Фамилия FROM tblЖУРНАЛ " _
& "WHERE (((tblЖУРНАЛ.di) Between db And df));")
' СОЗДАНИЕ ВРЕМЕННОГО ДИНАМИЧЕСКОГО ОБЪЕКТА Recordset с конкретными параметрами
qdfDati.Parameters(0) = dbeg
qdfDati.Parameters(1) = dfin
Set rstDati = qdfDati.OpenRecordset()
If rstDati.RecordCount <> 0 Then
   rstDati.MoveFirst
   fam = rstDati![Фамилия]
   MsgBox fam
End If
rstDati.Close
End Sub

http://www.sql.ru/forum/1150963/rabota-s-polem-dopuskaushhim-neskolko-znacheniy-v-kode-vba