kd.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3

satırını

kd.Open "SELECT * FROM tblAyarlar LIMIT 1", adoCon, 1, 3

yap düzelecektir