sayın berduş hocam çok teşekkür ediyorum yardımlarınız için, hallettim sayenizde, ben de boş durmayıp önce file dialog penceresiyle dosya yolunu ilgili metin kutusuna aldım ve kaydettim, daha sonra ise sorgulama yaptım ve sorgulamada o kaydettiğim alanı gösteren metin kutusuna da followHyperlink olayını atadım ve mutlu son, dosyama ulaşabildim , her şey için çok teşekkürler.

Private Sub kopru_Click()


Dim strButtonCaption As String
Dim strDialogTitle As String
Dim strAttachment As String
Dim varItem As Variant

strButtonCaption = "<Your Button Name Here>"
strDialogTitle = "<Your File Dialog Title Here>"

With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "All Files", "*.*" 'Allow ALL File types
End With

'The Show Method returns True if 1 or more files are selected
.AllowMultiSelect = False 'Critical Line/Single File selection
'.FilterIndex = 1 'not really relevant
.ButtonName = strButtonCaption
.InitialFileName = vbNullString
.InitialView = msoFileDialogViewDetails 'Detailed View
.Title = strDialogTitle

If .Show Then
For Each varItem In .SelectedItems 'There will only be 1 since
'AllowMultiSelect = False
'Assuming your Text Box Name is txtAttachment
strAttachment = varItem
Me.dosyaYolu = strAttachment
Next varItem
End If
End With


End Sub




kayıt işlemini tamamladıktan sonra ise, sorgulama yapıp ilgili veriyi görüntüleyip aşağıdaki kod ile de


Private Sub dosyaYoluAlt_DblClick(Cancel As Integer)
Dim git As String
git = Me.dosyaYoluAlt

Application.FollowHyperlink git, , True, True
End Sub


direkt dosyama ulaşabildim, çok teşekkür ederim, iyi çalışmalar.