Hvorfor vide denne her record???

Jeg skal vise alle records som starter med A:

bogstav = \"A\"
sql2 = \"SELECT * FROM Kategori Where LEFT(kategori,1) = \'\" & bogstav & \"\' ORDER BY Kategori\"
Set rs1 = MyConn.Execute (sql2)
do while not rs1.eof
    Response.write \"<font face=Arial color=#000000><a href=vis.asp?Kat=\" & Kat & \" target=main><small>\" & rs(\"kategori\") & \"</small></a><br>\"

    rs1.MoveNext
loop

Den viser fint antal records med A - men det er den samme den viser - hvorfor ??