Deletar produto do carrinho de compras

Olá, estou tendo problemas para deletar um produto do carrinho de compras, ele apresenta com erro:

Segue código:

<%
'Define Constantes
CONST cartpid = 0
CONST cartpname = 1
CONST cartpprice = 2
CONST cartpquantity = 3

Session.Timeout = 90

'Pega Carrinho
IF NOT isArray(Session("cart") ) THEN
DIM localcart(4,20)
ELSE
localcart = Session("cart")
END IF

'Pega Informações
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco_produtos.mdb")

selecionar = "Select nome, preco1, cod_produto from tb_produtos where cod_produto =" & Request("cod_produto")
set rssql = Conn.Execute(selecionar)

productid = rssql("cod_produto")
productname = rssql("nome")
productprice = rssql("preco1")

'Adicionar ao Carrinho
IF productid <> "" THEN
foundit= false
FOR i=0 to Ubound (localcart,2)
IF localcart(cartpid,i) = productid THEN
localcart(cartpquantity,i) = localcart( cartpquantity, i) + 1

foundit = TRUE
EXIT FOR
END IF
NEXT
IF NOT foundit THEN
FOR i=0 to UBOUND(localcart,2)
IF localcart(cartpid,i) = "" THEN
localcart(cartpid,i) = productid
localcart(cartpname,i) = productname
localcart(cartpprice,i) = productprice
localcart(cartpquantity,i) = 1

EXIT FOR
END IF
NEXT
END IF
END IF

'Atualiza Carrinho
IF Request("atualizarQ") <> "" THEN
FOR i=0 to Ubound (localcart,2)
newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )
deleteproduct = TRIM(Request.QueryString("productid") )
IF newQ = "" or newQ = "0" or deleteproduct <> "" THEN
IF deleteproduct = localcart(cartpid,i) THEN
excluir = "delete from pedidos where cod_produto = "& Request.QueryString("productid")
set rsexcluir = Conn.Execute(excluir)
localcart(cartpid,i) = ""
END IF
ELSE
IF isNumeric(newQ) THEN
localcart (cartpquantity,i) = newQ
END IF
END IF
NEXT
END IF

'Update Sesssion Carrinho
Session("cart") = localcart

%>

>
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'cod_produto ='.

A linha do erro é set rssql = Conn.Execute(selecionar) :

selecionar = "Select nome, preco1, cod_produto from tb_produtos where cod_produto =" & Request("cod_produto")
set rssql = Conn.Execute(selecionar)
Eu sei que ele não tá achando o cod_produto, porém coloquei input hidden na página que aponta para o cod_produto, mas mesmo assim ocorre o erro :mellow: