Suche oder Abfrage Dateiname via Access in Archiv

Hallo alle zusammen,

ich möchte eine Suche/ Abfrageeine Dateinamens via Access in vordef. Archiv ausführen.

PDF`s werden in einem bestimmten Archiv mit Namen gespeichert.
- A1.pdf
- A2.pdf
-A3.pdf

usw.

Jetzt möchte ich ein kleines Access Programm machen, wo ich ein Eingabefeld für den Dateinamen habe und einen Suche Button.
(Dateiname soll ohne Endung .pdf eingegeben werden)
Anschließend soll in einem vordef. Netzlaufwerk nach der Datei gesucht werden, zb. \\server1\archiv

Hat jemand eine einfache Lösung für mich ?

' suchenach ist das eingabefeld aus dem formular.  
StrFileName = Dir$("C:\") ' Pfad. Je nach Access Version geht ggfs kein  UNC Pfad  

Do While Len(StrFileName) > 0
  if lcase(StrFileName) = lcase(suchenach & ".pdf") then msgbox "GEFUNDEN"  
  StrFileName = Dir
Loop