forma bir buton ekleyip aşağıdaki kodu yazarsanız seçilen dosyanın adresi tablonuza eklenir

Dim Yol As String

Set xFd = Application.FileDialog(3)

With xFd

   .Filters.Clear

   .Filters.Add "Tüm Dosyalar", "*.*", 1

   .Title = "Lütfen taşınacak dosyaları seçiniz!"

   .AllowMultiSelect = 0 'True

'   .InitialFileName = "D:\Desktop\Sil_denme" 'Environ("USERPROFILE") & "\Desktop"

If .Show <> -1 Then Exit Sub

Me.Resim7 = .SelectedItems(1)

End With