lo siento pero hoy si ando sin ganas de leer mucho código
haz otra pagina solo para actualizar tu información y ahí coloca la función de actualizar.
o usa Select Case.
otra cosa es revisar tu sql de la función actualizar
Tienes ahorita
Cita: sqlStr = "UPDATE IO_CasosExitosos SET proyecto='"& pry &"' "
tendria que ser
Cita: sqlStr = "UPDATE IO_CasosExitosos SET Campo1 = '"& Campo1&"', Campo2 = '"& Campo2&"', Campo3 = '"& Campo3&"' where id = " & id
tenes que colocar todos los campos a actualizar y el ID de la noticia dado que si no especificas el ID te actualizara todos.
verifica que ID sea numérico si no va entre comillas
suerte