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") %>