Halily hocam sizin verdiğiniz örnekten yola çıktım Buraya Kadar Çalışıyor

Private Sub Komut75_Click()
Dim dbs As DAO.Database

Dim rss As DAO.Recordset

Dim txtSql As String

If IsNull([Metin1]) Then

MsgBox ("giriş yapmadınız")

Else

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

Me.Liste6.RowSource = txtSql

Set dbs = CurrentDb

Set rss = dbs.OpenRecordset(txtSql, dbOpenDynaset)



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

End If


End Sub




Private Sub next_Click()
Me.Recordset.MoveNext   'Bu Olmuyor Burayı Nasıl Yazmalıyım
Me.Metin2 = rss.Fields("resim_yol")
End Sub