Imprimindo com nome do caminho salvo numa tabela

Eu criei uma tabela chamada Funcionarios onde eu tenho pelo menos 2 campos:

ID e caminho_impressao.

Onde eu coloco por exemplo:

C:\Users\usuario1\documents\
C:\Users\usuario2\documents\

Dai eu tentei imprimir um PDF de um relatório da seguinte forma:

Código:

Dim FileNamePDF As String
Dim SetDirectoryPDF As String
Dim strRelatorio As String


' set directory to save to
SetDirectoryPDF = DLookup("caminho_impressao", "Funcionarios", "ID=" & login.ID)

'set the filename and save location
strRelatorio = "Relatorio_mensal"
'Tentei e não deu
'FileNamePDF = SetDirectoryPDF & strRelatorio & ".pdf"
FileNamePDF = CStr(SetDirectoryPDF) & strRelatorio & ".pdf"
MsgBox FileNamePDF
DoCmd.OutputTo acOutputReport, strRelatorio, acFormatPDF, FileNamePDF, False


Mas não consegui gerar o arquivo. Aparece a seguinte mensagem de erro:

"Erro em tempo de execução '2501':
A ação OutputTo foi cancelada.

Continuar Fim Depurar Ajuda

Boa noite,
Sem a bd é difícil.
Vá por partes. Coloque o endereço directamente no código. Quando funcionar, substitua o endereço pela função de procura na tabela