MS ACCESS: save report to pdf in subfolder with db relative path

Dim filename As String
filename  = CurrentProject.Path & "\subfoldarename\" &  "filename.pdf"
DoCmd.OutputTo acOutputReport, "reportname", acFormatPDF, filename