Al insertar en access luego al recuperar he perdido caracteres

[DeepasSea]

Hola he hecho de todo y no he conseguido solucionar esto y por supuesto no soy ni de lejos un entendido en esto, mas bien un curioso aprendiz. El caso es un diario de llamadas en el que se toma datos de la persona y el recado en una intranet bajo windows xp con el internet information server. Pues resulta que al ejecutar la pagina de lectura faltan datos, a veces hay 46 caracteres otras menos, siempre faltan los ultimos claro esta, compruebo en la base access y es cierto q faltan asi que supongo q el problema es del codigo que inserta.Este es el codigo de la pagina que inserta que recoge los datos de un formulario:


<% Dim conexion,registros'definimos las variables'%>

<% Fecha=request.form("Fecha") 'esto es para que reciba los datos%>
<% Hora=request.form("Hora") %>
<% Nombre=request.form("Nombre") %>
<% Detalle=request.form("Detalle") %>

<% Set conexion=server.CreateObject("ADODB.Connection") 'definimos el tipo de conexion'
Conexion.Open "diario"
Set registros=conexion.execute("SELECT max(codigo)+1 as mayor FROM diario") 'para leer el numero de codigo del ultimo contacto y añadirle uno para cuando creemos otro registro'
codigo=registros.fields("mayor") 'creamos la variable codigo para no tener que repetir la funcion y siempre obtener el numero siguiente de forma automatica'
Set registros=conexion.execute("Insert into diario(codigo,Fecha,Hora,Nombre,Detalle) values ('"&codigo&"','"&Fecha&"','"&Hora&"','"&Nombre&"', '"&Detalle&"')")'aqui insertamos en la base de datos las variables q nos interesan' %>