-- Arama işlemini liste kutusunda yaptırmayın.
-- Arama kutusuna her tuşa basıldığında arama işlemi yapmasın.
-- Arama kutusuna yazılan şartı bir butona tıklatarak Sql sorgusu ile aratın.(Örnek altta)
-- Liste kutusunda çok fazla sütun olmasın
-- Aramayı sadece 2-3 sütun ile kısıtlayın
-- Aranacak sütunlardaki bilgilerin indekslenmiş olmasına dikkat edin

Dim aranacakSql As String



   aranacakSql = "SELECT musteriAdi,musteriSoyadi,musteriGrup FROM tblMusteriler WHERE musteriAdi LIKE '" & Me.txtAranacakKelime & "'"



   lbMusteriListesi.RowSource = aranacakSql

   lbMusteriListesi.Requery

Ezbere yazdım hatalar olabilir editörde test edersiniz.