Liste kutusunu filtreleme

Merhaba,
Ekte 'kesim satış' formundaki liste kutusunun, üzerindeki küçük metin kutusundan, liste kutusundaki ürün kodu alanını filtrelemek istiyorum. Bir çok örnek inceledim. Hatta etiketlerin ismini değiştirip kopyalayıp yapıştırdım. Yine de yapamadım.

Kullandığım kod şöyle;

Private Sub Metin89_Change()
Dim Bul As String
Bul = Metin89.Text
Me.Metin1.Value = Bul
Me.Urunkodu.Requery
End Sub

Nerede hata yapıyorum?

Like "*" & [Forms]![Kesim_satış]![Metin1] & "*"

listede süzdürmemişsin , inceleyin

Çok teşekkür ederim. Asıl meseleyi unutmuşum