Tüm verileri liste kutusuna çekip istediğiniz kriterlere göre filtreleme yapın, ardından listede gösterilen kayıt sayısını ekrana yazmak için forma bir metin kutusu ekleyin
formun açılış olayına
Me.Metin2.Value = Me.Liste0.ListCount
yazmanız yeterli olur ancak bu yöntemde her ili ayrı ayrı görüntüleyebilirsiniz