Merhaba..

Bu şekilde kullanınız..:

Liste8.RowSource = "SELECT RptProtokolDefteriYeni2.Alan12, RptProtokolDefteriYeni2.Tarih" _
& " FROM RptProtokolDefteriYeni2" _
& " WHERE (((RptProtokolDefteriYeni2.Alan12) Like forms!Hastaisimleri!liste8 & ""*""))" _
& " ORDER BY RptProtokolDefteriYeni2.Tarih DESC;"