Gifte dikkat ederseniz her işlemden sonra Access dosta boyutu bereketleniyor

Resim boyutu 2Mb den büyük olduğu için başka yere yükledim.
Ayrıyeten koddaki With fDialog altına .InitialFileName = CurrentProject.Path eklenirse dosya içi yolu çıkar dosya açmada.