aşağıdaki kodu dener misiniz?
Not: referanslardan Microsoft Access xx.x Object Librar eklenmeli

    Dim fDialog     As FileDialog

    Dim varFile     As Variant



    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog

        .AllowMultiSelect = False

        .InitialFileName = CurrentProject.Path 

        .Title = "Dosya seç"

        .Filters.Clear

        .Filters.Add "PDF-dosyaları", "*.PDF"

        If .Show = True Then

           txtEvrak_Adres = "#" & fDialog.SelectedItems(1) & "#"

        End If

    End With