Set rst1 = CurrentDb.OpenRecordset("select * from tablo1 where Katagori='" & Me.ktg & "'")
kategori alanı metin ise yukarıdaki doğru.
şayet sayı ise
Set rst1 = CurrentDb.OpenRecordset("select * from tablo1 where Katagori=" & Me.ktg )
İyiki Varsın Access