Actualizar datos

[isoka]

Estimados amigos del foro , les escribo porque ya tengo listo mi sistema login, y solo me falta hacer la parte donde los usuario modifican sus datos, les dejo el codigo en el que estoy trabajando para que ver en que tengo error , ya que me dice que esta todo ok y no sube las modif. a la BD.
Gracias de antemano, ahi les dejo el cod:
--------------------------------------------
<%
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./db.mdb")
nick=request.form("nick")
sqltext = "SELECT * FROM data WHERE Nick = '" & _
nick & "'"
rst.Open sqltext,cnn,3,3
email=request.form("email")
nombre=request.form("nombre")
apellido=request.form("apellido")

if rst.EOF then
%>
ERROR
<%
else
rst.update
rsr("Nick") = nick
rst("nombre") = nombre
rst("apellido") = apellido
rst("email") = email
rst.update

rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
end if
%> Datos modificados exitosamente