Erro No Session

[smez]

<%
            Dim codigo
            
            codigo = session("codigo")
            
            regs = 250 'Aqui setamos quantos registros serão listados por página
            pag = request.querystring("pagina")

            if pag = "" Then
            pag = 1
            end if

            set rs = createobject("adodb.recordset")
            set rs.activeconnection = abredb

            rs.cursortype = 3 'Definimos o cursor a ser utilizado
            rs.pagesize = regs

            sql = "SELECT * FROM hospedagem INNER JOIN boletos ON boletos.cliente = hospedagem.codigo WHERE codigo ='"&session("codigo")&"'"
            rs.open sql

            if rs.eof or rs.bof then
            response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'>Não há Cobertura Cadastradas!</font>"
            else
            rs.absolutepage = pag
            contador = 0
            %>

da o seguinte erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/upertech/geral.asp, line 230

[fercosmig]

... hospedagem.codigo WHERE codigo =" & codigo

ou

... hospedagem.codigo WHERE codigo =" & session("codigo")

codigo no bd deve estar como campo numérico, por isso o erro, não precisa usar aspas simples na comparação