Sql Query In Asp Is Blank But Full ?

[adidoron]

Dear Friend,
Can You help me with this strange thing ?
<%
dim Conn
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=hire"

dim rs,sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from hire"
rs.Open sql, conn

while not rs.EOF

Response.Write "<OPTION value=" & rs("kod") & ">" & "</OPTION>"
rs.MoveNext
wend
%>
</tr></td></select>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>

i get the combo box with all the recordset but when open it it's look likrits empty ?
what wrong with my sql query ?
or any thing else ?

Best Regards To All
===============
Adi Doron