Imprimir Reporte en crystal reports vb6

[agameroslosa]

Buenas tardes amigos de Forosdelweb.com tengo una dudota que me esta retrasando un proyecto, lo que pasa es que cuando mando a imprimir un reporte donde contiene muchos datos y entre ellos unos folios que se encuentran alojados en una tabla llamada vta_transferencias cuya tabla tiene un atributo llamado etiquetaID que es una llava foranea, el problema es que cuando hago mi recorrido para agregar los atributos a mi reporte.rpt solo me muestran el ultimo folio por n etiquetaID osea en teoría cada etiqueta generada puede tener 1 o más folios este es mi reporte.



Las etiquetas se imprimen por grupos y pues intente que también los folios los agrupara pero nada es el mismo problema
Si en el recorrido le agrego la función .addnew me hace esto



Me crea un etiqueta nueva osea el cero no me los pone en las etiquetas creadas pero si me muestran todos los folios ahora el diseño de mi reporte es este no lo he acabado pero aquí esta



Como comente le agregue que los folios se impriman por grupos pero yo creo que esta demás ya que lo pondría en details pero funciona igual estoy seguro que es mi código, mi código es el siguiente

Aclaro en mi crystal reports estoy usando un archivo ttx

With rsImprime
.Fields.Append "EtiquetaId", adInteger
.Fields.Append "Folio", adVarChar, 500
.Fields.Append "TipoFolio", adVarChar, 500
.Fields.Append "Origen", adVarChar, 50
.Fields.Append "Transportista", adVarChar, 100
.Fields.Append "CiudadDestino", adVarChar, 100
.Fields.Append "NumeroEtiquetas", adInteger
.Open
rsTemporal.MoveFirst
Wait
Do Until rsTemporal.EOF
If rsTemporal!Marca = -1 Then
.AddNew
!EtiquetaId = rsTemporal!Folio
!Origen = "CDP AMSA MERIDA"
Set rsCargarEtiquetas = BuscarEnDB("IMPRIMIR ETIQUETA", gConexion, rsTemporal!Folio)
rsCargarEtiquetas.MoveFirst
!NumeroEtiquetas = rsCargarEtiquetas!NumeroEtiquetas
!Transportista = rsCargarEtiquetas!Transportista
!CiudadDestino = rsTemporal!CiudadDestino
rsCargarEtiquetas.MoveFirst
Do Until rsCargarEtiquetas.EOF
If rsCargarEtiquetas!Tipo = "T" Then
.AddNew
!Folio = rsCargarEtiquetas!Folio
!tipoFolio = "T"
.Update
End If
If rsCargarEtiquetas!Tipo = "O" Then
.AddNew
!Folio = rsCargarEtiquetas!Folio
!tipoFolio = "O"
.Update
End If
rsCargarEtiquetas.MoveNext
Loop
.Update
End If
rsTemporal.MoveNext
Loop
uWait
.MoveFirst
End With
cmdRefrescar_Click
MuestraReporte "\Reportes\frmVisorEtiquetasCDP-Premanifiesto2.rpt", , , , rsImprime


Como pueden ver le estoy poniendo .AddNew por cada recorrido si se los quito solo me ponen el ultimo.