ahhh ok, ahora.
1. Te falta el WHERE en la sql:
sqltext = "SELECT * FROM mensajes WHERE id=" & id
La id la traes del form con un hidden, por ejemplo, y te sirve para identificar la fila a actualizar. Si no le dices qué, la bd se pone turulata
2. Te recomiendo que uses el "update into...".