Tente isto, é só fazer os ajustes necessários: mostra.asp <%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq="
conStr = conStr &"caminho_do_bd\nome_do_bd.mdb"
conn.Open conStr
sql = "Select * From nome_da_tabela Where nome_do_campo = '"& nome_digitado &"'"
rs.Open, conn, 3, 3
%>
<form action="atualiza.asp" method="post">
Nome:<input type="text" name="nome" value='<%=rs("nome")%>'><br>
E-mail:<input type="text" name="email" value='<%=rs("email")%>'><br>
<input type="submit" value="Atualizar">
</form>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
atualiza.asp
<%
nome = Request.Form("nome")
email = Request.Form("email")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq="
conStr = conStr &"caminho_do_bd\nome_do_bd.mdb"
conn.Open conStr
sql = "Update nome_da_tabela Set nome_da_tabela.nome_campo_email = '"& email &"' Where nome_da_tabela.nome_campo_nome = '"& nome &"'"
rs.Open, conn, 3, 3
Response.Write "Cadastro atualizado com sucesso!"
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%> Espero ter ajudado, qualquer dúvida volte a postar. ;)