Resim.Picture = ""
xYol = Application.CurrentProject.Path & "\" & Me.arama & ".JPG"
If Len(Dir(xYol) & "") > 0 Then Resim.Picture = xYol Else MsgBox "resim bulunamadı"
aşağıdaki kodu dener misiniz?