Gravar Variavel do Combo no BD

Tenho um combo que é alimentado pelo banco de dados, nele traz o nome do produto e seu valor é o codigo do produto.

Porém não consigo trazer o valor para gravar no banco, ele grava somente o valor 0.

Segue abaixo a função que alimenta o combo.

Sub Cria_Combo_Correlacao_ADM(VarCodigo_chave,VarAdicional,VarLanguage) Set RS_Produtos = Server.CreateObject("ADODB.Recordset")	RS_Produtos.CursorLocation = 3	RS_Produtos.CursorType = 0	RS_Produtos.LockType = 1	RS_Produtos.Open "SELECT codigo_chave, nome_produto FROM Produtos WHERE sigla_idioma = '"&varLang&"' ORDER BY nome_produto", Conexao	If RS_Produtos.Eof Then checkProdutos = "Não há Produtos cadastrados"	Else%> <SELECT NAME="codigo_correlacao" class="FORMbox" <%=Action%> <%=VarAdicional%>> <OPTION value="">Selecione</OPTION><% While Not RS_Produtos.EOF If CDbl(Varcodigo_chave) = CDbl(RS_Produtos("codigo_chave")) Then SELECTED = "SELECTED" Else SELECTED = "" End if%> <OPTION value="<%= RS_Produtos("codigo_chave")%>" <%=SELECTED%>><%=RS_Produtos("nome_produto")%></OPTION><% RS_Produtos.MoveNext Wend%> </SELECT><%	checkProdutos = "Possui produtos cadastrados"	End if	RS_Produtos.Close	Set RS_Produtos = NothingEnd Sub

Segue o codigo para gravar no banco.

RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao|"&Trim(codigo_chave))