Hola de nuevo,
Cita: Sql=Sql & "SELECT id_tipo, 1,referencia WHERE where id_historial = " & id_historial
Lo que está en rojo te garantiza que sea "una copia feliz del edén", ya que estarías duplicando los datos del registro según el filtro.
Si son mas campos deberias colocarlo así:
Cita: Sql=Sql & "SELECT id_tipo, 1,referencia, campo1,campo2, campoN WHERE where id_historial = " & id_historial
Pruebalo y avisa como te va,
Saludos!