Segue abaixo o codigo
<%
nome = request.Form("nome")
codigo = request.Form("cod")
endereco = request.Form("ender")
numero = request.Form("numero")
bairro = request.Form("bairro")
cep = request.Form("cep")
cnpj = request.Form("cnpj")
constr=server.mappath("bd1.mdb")
banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}"
set conexao=server.createobject("adodb.connection")
conexao.open banco
set rs = conexao.execute("Update clientes SET nome=nome, endereco=endereco, numero=numero, bairro=bairro, cep=cep, cnpj=cnpj where codigo=codigo")
response.Redirect("inicial.asp")
%>











