Feil format? Hva skjer? Submeny utlistning

Jeg har meny som skal liste ut submenyer hvis jeg setter formatet i databasen til tekst så lister den ut men ikke hvis jeg setter den som tall! HVORFOR?

----------------------
Databasen ser slik ut!
----------------------
DocumentId - Autonumber
Categori - Number ' HVIS DETTE BLIR TEXT SÅ VIRKER SCRIPTET!
Title - Text

--------
SCRIPTET
--------
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb/dw_Document.mdb")

dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn

dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Documents order by Categori,DocumentId Desc"
set adoRs = adoCn.Execute(strSQL)

Do While Not adoRs.EOF
If Cat <> adoRs("categori") Then
Cat = adoRs("categori")
%>
<a href="meny_utlisting.asp?SubMeny=<% =adoRs("categori") %>"><% =adoRs("categori") %></a><br>
<%
End if

If Request.QueryString("SubMeny") = adoRs("categori") Then
%>
- <a href="url.asp?url=side.asp?DocumentId=<% =adoRs("DocumentId") %>"><%=adoRs("title")%></a><br>
<%
End if
%>

<%
adoRs.MoveNext
Loop
%>