Dim txtSql As String
txtSql = "Select * from resimler where adi='" & CStr(Me.Metin1.Value) & "'"
Me.Liste5.RowSource = txtSql
Me.RecordSource = txtSql
Me.Metin2.ControlSource = "resim_yol"
"komut75"in kodunu aşağıdaki kodla değiştirip dener misiniz?