Soru Ado ile Listbox Süzme

[hlojan]

Merhabalar;

Yaptığım örnekte takıldığım noktalar var.

1 . Cihaz Giriş

Cihaz girişe tıkladığımda stok giriş yapıyor. Ektradan eylemin sonunda Sağdaki listboxa ( Listbox2 ) a Access den Ado ile sorgu yapıp kod ve Durum bilgisine gore listelemesini istiyorum.

Kod yazdım ama hata aldım

Call baglan

 
kyt.Open "select * from cihazstok where kod='" & kod & "' and durum=" & CDbl(stok) & ";", bgln, 1, 1
 
   ListBox2.ColumnCount = kyt.Fields.Count
   ListBox2.Column = kyt.GetRows
  
  
 bgln.Close
Set kyt = Nothing: Set bgln = Nothing

2 - Seri numarası ile arama

Listbox1 de Textbox change ile arama yapmak istiyorum

Ado like sorgusu yapmaya çalıştım başarısız oldum

12 yazdığımda

a12s4
12afg
12a

gibi listbox a sıralasın istiyorum. Kod sira numarası ile birlikte.

Call baglan
kyt.Open "select * cihazstok firma where seri like '" & cihazseri & "';", bgln, 1, 1
  
   ListBox1.ColumnCount = kyt.Fields.Count
   ListBox1.Column = kyt.GetRows
    kyt.Update
 bgln.Close
Set kyt = Nothing: Set bgln = Nothing

3- Listbox a süz

ilk sorumla benzer çözüm ama sağdaki listbox da kod ile getir dediğimde
list box a durumu kod bilgisi ve STOK olanları sıralasın istiyorum

Umarım yardım ederseniz. İyi Çalışmalar