Herkese kolay gelsin

Ekteki formda combobox da after update sonrasında Vba da yazdığım kod çalışmıyor.
Where komutunu çalıştıramadım. Koda bakıp düzeltebilirmisiniz. Yardımınız için şimdiden teşekkürler.