åbn explorer og søg filer

Jeg søger en måde at vise nogle filer i en mappe, hvorfra det er muligt at åbne enkeltfiler efter eget valg.
Jeg har en mappe, som indeholder mange pdf-filer. Jeg vil gerne i stifinderen vise filer, som indholder/begynder med noget, som ligger i et felt i en formular. Jeg bruger Access2003 og WinXP.

Nedenstående giver fejl, da explorer opfatter snr som en del af stien.

Sub find_kvitteringer()
Dim sti, snr As String
Dim RetVal
sti = "x:\sti\"
snr = "1801*.*"
RetVal = Shell("c:\windows\explorer.exe " & sti & snr, 1)
End Sub

Er det mon grundlæggende forkert at bruge "shell" ?