Erro de UPDATE "Tipos incompatíveis"

Olá!

Estou fazendo um teste para atualizar uma informação em um dos meus itens do banco de dados; porém houve um erro e não consigo decifra-lo. "Tipos incompatíveis"

Busco as informações no banco:

<%Dim caminho, conexao, rsProduto, seleciona%>
<%
caminho = "D:\web\LocalUser\divinho\banco\db.mdb"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
%>

<%
Set rsProduto = Server.CreateObject("ADODB.Recordset")
**seleciona = "SELECT * from Produtos where Cod_produto = "& request("cod")**
rsProduto.Open seleciona, conexao

Dim cod
cod = request("cod")
%>

**<FORM name="frmPrincipal" method="post" id="frmPrincipal" action="teste.asp?cod=<%=cod%>">**
**<input type=text name=codigo value="<%=rsProduto("Cod_produto")%>">**
**<input type=text name=nome value="<%=rsProduto("Nome")%>">**

**<input type="Submit" value="Enviar "> **

**</form>**

Realizando o UPDATE

<%Dim caminho, conexao%>
<%
caminho = "D:\web\LocalUser\divinho\banco\db.mdb"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
%>

<%
Dim sql, nome, cod, executecmd

nome = request.form("nome")

cod = request.form("codigo")

sql = "update Produtos set "
sql = sql & " Nome = '" & nome & "'"
sql = sql & " where Cod_produto = " & cod

call executecmd(sql)

Response.Redirect "teste2.asp"

%>

Podem testar através do link: http://divinho.com.br/teste2.asp?cod=344

Agradeço se alguém puder ajudar!

:D