Alpeki99'un kodu nasıl uygulanacak diye merak edenler için;

Polsofta, resim eklenirken seçilen resmin bir kopyasını polsoft.mdb ile aynı dizinde bulunan resim klasörüne kopyalatıyorum. Bu işlemi gerçekleştiren kod:

  YedekYolu = VtYolu(BagliTabloVt) & "resimler"

  ResimAdi = "\kisi-" & tcno & adsoyad & StrConv(Right(ImagePath, 4), 2)

   ResimAdi = StrConv(Replace(ResimAdi, " ", "-"), vbLowerCase)

   ResimYeni = YedekYolu & ResimAdi 

2. soru, konu başlığı ile bağlantılı olduğu için yazıyorum cevabı, veritabanına eklemey yerine tabloya yol olarak kaydedin.