Ребят, нужна помощь проффов в vba.

Есть отчет rep_empty_find основанный на запросе select_empty_n, у которого есть условие "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])". То есть при запуске отчета спрашивается номер и по введеному номеру выдает нужный отчет.
Так же есть запрос select_empty, такой же как и select_empty_n, где выводятся все записи. Т.е. нет условия "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])".


Вытаскиваю отчет rep_empty_find в .pdf командой по кнопке

Private Sub Кнопка377_Click()

Dim DB As Database
Set DB = CurrentDb
Dim RS As Recordset
Dim FileName As String
Dim FilePath As String
Dim StrSQL As String
StrSQL = "select [Приходный ордер] from select_empty_n"

Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)
'Set RS = DB.OpenRecordset("select_empty", dbOpenDynaset)

FileName = RS.Fields("[Приходный ордер]")
FilePath = "C:\" & FileName & ".pdf"
'FilePath = FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rep_empty_find", acFormatPDF, FilePath

End Sub

-----
Пишет что в строке "Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)" слишком мало параметров.
Заменив строку "StrSQL = "select [Приходный ордер] from select_empty_n" "на "StrSQL = "select [Приходный ордер] from select_empty" ", сохраняется файл всегда с именем первого [Приходный ордер] из запроса select_empty.


ВОПРОС, как подтянуться вводимый номер в имя экспортируемого файла .pdf?
или может как задать имя из сформированного отчета??

Спасибо всем кто поможет, никак не могу найти похожей проблемы.

http://www.sql.ru/forum/1268592/prisvoenie-vvodimogo-znacheniya-v-imya-fayla-eksporta-pdf