Update gerando erro

[thiagobellusse 0]

Boa noite pessoal, estou tendo um problema com meu update, séra que alguem poderia me ajudar?

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na seqüência de caracteres na expressão de consulta

 

<%

Dim Conn'

Set Conn = Server.CreateObject("ADODB.Connection")'

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")'

 

'varCodigo = request.QueryString("varCodigo")

id_prod = request.QueryString("id_prod")

ref = request("ref")

descricao = request("descricao")

preco = request("preco")

peso = request("peso")

qtd_pedras = request("qtd_pedras")

tipo_pedra = request("tipo_pedra")

opcao = request("opcao")

 

response.write(descricao)

response.write(ref)

 

 

StrUpd = "update prod set ref = '" & ref & "', descricao = '" & descricao & "', preco = '" & preco & "', peso = '" & peso & "', qtd_pedras = '" & qtd_pedras & "', tipo_pedra = '" & tipo_pedra & "', opcao = '" & opcao & "' where id_prod = '" & id_prod

 

set rsquery = conn.execute(StrUpd)'

set rsquery = nothing'

set conn = nothing'

response.Redirect("adm_up_ali.asp")'

%>

 

 

Não sei mesmo oq fazer, a linha de erro é essa:

set rsquery = conn.execute(StrUpd)

[Mário Monteiro 179]

pra update nao precisa setar recordset

 

mas nao é isso o erro

 

escreve o que esta sendo executado e post aqui

 

response.write(StrUpd)