Hocam yardımlarınız için teşekkür ederim. Sizin verdiğiniz Kodu aşağıdaki şekilde değiştirerek sorunu çözdüm
On Error GoTo HataKontrol
With Adodc1.Recordset
.MoveNext
If .EOF Then .MoveFirst
End With
yResim.Picture = LoadPicture(App.Path & "\Resim\" & Me.Text6 & ".jpg")
On Error GoTo 0: Exit Sub
HataKontrol:
yResim.Picture = LoadPicture(App.Path & "\Resim\bos.jpg")
![Çözüldü](images/icons/cozuldu.png)