[Resolvido] erro a devolver query

Pessoal ando aqui as voltas com um erro idiota.

Alguem me da uma luz do que esta mal??

<%
dim cod
cod=request.querystring("cod")
set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/DBAquasplender.mdb")
set rs=server.createobject("adodb.recordset")

ler="select * from diy where categorias = " & cod& ";"
rs.open ler,conn,1

no link da outra pagina tenho "ler.asp?cod=outros"

Se puser a string apenas "select * from diy" ele funciona e da-me todos os registos mas quando expecifico o valor do campo categorias ele da erro.

Alguem percebe o que pode estar mal??

obrigado