ekte istediğiniz yapılmıştır.
Modüle1 de bir fonksiyon ekledim. O fonksiyon ile isteiğiniz dosyayı seçmek için
Dosyanın Bulunduğu Yol
Açılan Pencerenin Başlığı
Ve Süzülmesini İstediğiniz Dosyaının Uzantısını aşağıdaki gibi yazarak kullanabilirsiniz.
Kolay Gelsin.

Call LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")