yaptığım çalışmada veri tabanındaki veri sayısını şu şekilde alıyorum :

Dim kayit01 As String
Dim sql01 As String = "select count(sehir) from TabloHepsi where sehir in ('ADANA')"
Dim sorgu01 As New OleDbCommand(sql01, baglanti)
kayit01 = sorgu01.ExecuteScalar.ToString
Label3.Text = "(" & kayit01 & ")"

ve bunu 81 kere tekrarlıyorum (her il için ayrı ayrı),

acaba bunun daha kısa bir yolu varmıdır, yani daha kısa bir yöntemle veritabanımdaki "her şehire ait kaydın sayısını ayrı ayrı nasıl öğrenebilirim" ve eğer böyle bir yöntem varsa elde edilecek veri sayılarını ilgili yerlere (yani her ilin yanına) nasıl yazdırtabilirim.

iyi günler