Bahsettiğiniz talebinize yönelik olarak;
Örnek eklediğiniz takdirde daha geçerli çözüm sunulmakla birlikte,
MyReport = CurrentProject.Path & "\HTS\Rapor.pdf"
Yukarıda yazılı kod üzerinde yapılması gereken düzeltme olarak,
MyReport = CurrentProject.Path & "\HTS\" & Dlookup ("sorgudaki_isim_alanı","sorgu_adı") & ".pdf"
olarak kullanmayı deneyiniz.Bilginize...iyi çalışmalar,saygılar.