Добрый день, столкнулся с проблемой , не могу понять как сделать фильтр отбора записей в отчете, ниже прилагаю код:

Private Sub Кнопка93_Click()
On Error GoTo Err_Кнопка93_Click
Dim s As String
Dim a() As String
s = [Forms]![Главное окно].Controls![График подчиненная форма].[Form].Controls![Образец]
a = Split(s, ",")

DoCmd.OpenReport "Ярлыки СИ", acViewPreview, , "(НомерШтрихкода='" & a(0) & "') and (НомерШтрихкода='" & a(1) & "')"

При нажатии на кнопку открывается отчет и в нем ничего не выводится!
Если для одного условия то работает, а для двух и более не работает

http://www.sql.ru/forum/1170028/uslovie-otbora-zapisey-v-otchete