Ao Alterar um dado de um Registro altera de todos

Boa Tarde Galera, estou tentando fazer alteração em um registro porem quando eu envio a alteração ele altera o mesmo campo de todos os registros que tenho....o que fiz de errado?????Esse é meu codigo

<%'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, strQuery, sql_query, RsQuery, campo, sql, id_imovelDim ObjRs, valor, endereco, referencia, desc_simples, tp_imovel, desc_lancamentoDim nivel_prioridade, desc_aluguel, ativo, desc_negrito01, desc_negrito02Dim desc_imovel, bairro, corretor'Atrubuição dos valores as respectivas variáveisvalor = Request.Form("valor")endereco = Request.Form("endereco")referencia = Request.Form("referencia")desc_simples = Request.Form("desc_simples")tp_imovel = request.Form("tp_imovel")desc_lancamento = request.Form("desc_lancamento")nivel_prioridade= request.form("nivel_prioridade")desc_aluguel = request.Form("desc_aluguel")ativo = request.form("ativo")desc_negrito01 = request.form("desc_negrito01")desc_negrito02 = request.form("desc_negrito02")desc_imovel = request.form("desc_imovel")bairro = request.form("bairro")corretor = request.form("corretor")id_imovel = Request.Form("id_imovel")'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & Server.MapPath("..\bd\bd.mdb") & ";Driver={Microsoft Access Driver (.mdb)}","username","password"strQuery = "UPDATE imovel SET tp_imovel='"&tp_imovel&"',valor='"&valor&"', endereco = '"&endereco&"', referencia='"&referencia&"', desc_simples='"&desc_simples&"', desc_lancamento='"&desc_lancamento&"', nivel_prioridade='"&nivel_prioridade&"', ativo='"&ativo&"', desc_negrito01='"&desc_negrito01&"', desc_negrito02='"&desc_negrito02&"', desc_imovel='"&desc_imovel&"',bairro='"&bairro&"', corretor='"&corretor&"',desc_aluguel='"&desc_aluguel&"' WHERE id_imovel='"&id_imovel"'"'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing 'forumif err.number <> 0 Thenresponse.write("Erro código"&err.number &" - "& err.description)response.end()else'Redireciona o usuário caso não tenha ocorrido erro na transaçãoresponse.redirect "sucesso.asp"end if%>

Valew pela força.