Qualé o problema?

Pessoal o meu servidor está retornando um erro que não confere. O código abaixo serve para inserir um produto na tabela "Carrinho" do meu BD:

Dim SQL, RS, Quantidade, CodProduto, CodCliente, Preco

if Request.Form("comprando") = "sim" then

'Armazena os valores passados pelo método POST em variáveis

Quantidade = int(Request.Form("Quantidade"))

CodProduto = int(Request.Form("CodProduto"))

Preco = Request.Form("Preco")

'Busca o código do cliente que está armazenado em uma Session

CodCliente = int(Session("cod_cliente"))

	SQL = "SELECT * From Produtos WHERE cod_produto = " & CodProduto

	Set RS = conexao.execute(SQL)

 

	if Quantidade = 0 then

 response.Write("Meu amigo, quantas pizzas você quer?")

	else

 SQL = "INSERT INTO Carrinho(codproduto, codcliente, quantidade, preco) VALUES (" & codproduto & "," & codcliente & "," & quantidade & "," & preco & ")"

 **conexao.execute(SQL)** Response.Redirect("comprados.asp")

	end if

else

Dim cod

cod = int(Request.QueryString("cod_produto"))

	SQL = "SELECT * FROM Produtos, Categorias WHERE Produtos.cod_categoria = Categorias.cod_categoria AND cod_produto = " & cod

	Set RS = conexao.execute(SQL)

%>

Retorna o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/lagondola/sacola.asp, line 144

O texto que está em negrito logo acima é a linha 144 do meu código, o que estou fazendo de errado aqui? Alguém pode me explicar?

Obrigado!

Bruno Campos