vt1 dosyanızı Resim klasörünüzün içine atınız
Sonra
Kaynak = CurrentProject.Path & "\Resim\" & Me.ad & ".jpg"
Kodu bununla değitiriniz
Kaynak = CurrentProject.Path & "\ " & Me.ad & ".jpg"
Ozaman çalışacaktır.
Kolay gelsin
Kaynak = CurrentProject.Path & "\Resim\" & Me.ad & ".jpg"
Kaynak = CurrentProject.Path & "\ " & Me.ad & ".jpg"