ben eski dosyanız üzerinden yaptım siz yeni dosyanıza uyarlarsınız.
öncelikle formun en üstüne "Option Compare Database"nin hemen altına tüm formda kullanabileceğimiz 2 değişken tanımladık
-modül eklerseniz her formda kullanılabilir-

Option Compare Database '<==bu satır zaten eklidir siz alttaki 2 taneyi ekleyeceksiniz

Dim txtSql As String

Public rsResim As dao.Recordset

sonra yeni bir prosedür tanımlayacağız -Aslında tanımlamamıza gerek yokmuş ben bir yerde hata yaptığım için çalışmadığından ayrı prosedür olarak yazmıştım
isterseniz prosedürün içindeki kodları, "SqlResim (txtSql)"yi silip yerine yazabilirsiniz -

Public Sub SqlResim(txtSql As String)

Set rsResim = CurrentDb.OpenRecordset(txtSql)

rsResim.MoveLast

rsResim.MoveFirst

End Sub

"Sub Komut75_Click()" butonun kodunu aşağıdaki kodla değiştirin

txtSql = "Select * from resimler where adi='" & CStr(Me.Metin1.Value) & "'"

SqlResim (txtSql)



Me.Liste5.RowSource = txtSql

Me.Metin2 = rsResim.Fields("resim_yol")

geriye kalanlar da ilk/son/ileri/geri komutları

Private Sub BtnGeri_Click()

If rsResim.AbsolutePosition = 0 Then Exit Sub 'ilk kayıt kontrolu

rsResim.MovePrevious

Me.Metin2 = rsResim.Fields("resim_yol")

End Sub



Private Sub BtnIleri_Click()

If rsResim.AbsolutePosition = rsResim.RecordCount - 1 Then Exit Sub 'son kayıt kontrolü

rsResim.MoveNext

Me.Metin2 = rsResim.Fields("resim_yol")

End Sub



Private Sub BtnIlk_Click()

rsResim.MoveFirst

Me.Metin2 = rsResim.Fields("resim_yol")

End Sub



Private Sub btnSon_Click()

rsResim.MoveLast

Me.Metin2 = rsResim.Fields("resim_yol")

End Sub