aşağıdaki kodu dener misiniz?

Private Sub Liste100_Click()

Me.TEZGAH_TURU = Me.Liste100.Column(8)

Me.HAVLU_COZGU_TEL_SAYISI = Me.Liste100.Column(11)

Me.HAV_IPLIK_NO = Me.Liste100.Column(2)

xSQL = "SELECT IPLIK_COZGU_GIDEN_GELEN.ID, IPLIK_COZGU_GIDEN_GELEN.COZGUCU_FIRMA AS [Çözgü Firması], IPLIK_COZGU_GIDEN_GELEN.IPLIK_NO AS [İplik No], " & _

       "IPLIK_COZGU_GIDEN_GELEN.ISTENEN_HAV_ZEMIN AS [Kullanım Yeri], IPLIK_COZGU_GIDEN_GELEN.IPLIK_TURU AS [İplik Türü], " & _

       "IPLIK_COZGU_GIDEN_GELEN.IPLIK_MARKA AS [İplik Menşei], IPLIK_COZGU_GIDEN_GELEN.IPLIK_FIRMASI AS [İplik Firması], " & _

       "IPLIK_COZGU_GIDEN_GELEN.GELEN_KG AS [Gelen Kg], IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU AS [Tezgah Türü], IPLIK_COZGU_GIDEN_GELEN.MAKINA AS Mak, " & _

       "IPLIK_COZGU_GIDEN_GELEN.EBAT AS Ebat, IPLIK_COZGU_GIDEN_GELEN.TEL AS TelSay, IPLIK_COZGU_GIDEN_GELEN.LEV AS LevAçı, " & _

       "IPLIK_COZGU_GIDEN_GELEN.DURUMU AS Durumu FROM IPLIK_COZGU_GIDEN_GELEN " & _

       "WHERE (((IPLIK_COZGU_GIDEN_GELEN.ISTENEN_HAV_ZEMIN)=""ZEMİN"") " & _

       "AND ((IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU)='" & Liste100.Column(8) & "') AND ((IPLIK_COZGU_GIDEN_GELEN.MAKINA)=" & Liste100.Column(9) & "))" & _

       "ORDER BY IPLIK_COZGU_GIDEN_GELEN.TEZGAH_TURU, IPLIK_COZGU_GIDEN_GELEN.MAKINA, IPLIK_COZGU_GIDEN_GELEN.EBAT;"

Me.Liste101.RowSource = xSQL



End Sub