[Resolvido]Ajuda com Loop

Boas galera,
Infelizmente não sei nem como explicar minha duvida, então se alguém puder me ajudar e mostrar onde estou errando agradeceria.

Fiz um processo semelhante mas utilizando apenas 3 tabelas agora no caso chegou a 5 tabelas mas o procedimento que utilizei não funciona neste caso.
Segue o que estou tentando criar mas não me gera nada:



Caso ajude segue link do exemplo: dropbox.com/s/j7l9ldlokl8u6wd/TemplateFechamento.zip?dl=0
Caso alguém conheça esses métodos e puder ajudar agradeço.

Boas Alexandre,
Grato pela analise. Infelizmente será necessário sim ou se me mostrar uma forma melhor pois a criação de relatório contem um ponto negativo que o Word supri que é o espaço em um campo. Posso incluir os dados que quiser no word que não me mostrara dezenas de # ou quaisquer outros símbolos ou se eu colocar apenas um carácter em um relatório do access me deixará um espaço enorme. São inume-as as negatividades na questão. A parte que postei é apenas uma para simplificar para que possam me ajudar.

Ainda em busca da solução...

Boas galera, resolvida a questão.

Código:

Dim rsCnsMtBoy As Recordset
    Dim Nome, Diaria, TxFinal, DiMax, Total As String
   

Set rsCnsMtBoy = CurrentDb.OpenRecordset("SELECT * FROM cnsEntregador WHERE IdCaixa = " & Me.IdCaixa & "")
   

Do While Not rsCnsMtBoy.EOF

    If Nome = "" Then
        Nome = rsCnsMtBoy!Name
        Diaria = "40,00"
        TxFinal = "R$ " & Format(Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
        DiMax = Nz(DSum("DistanciaMAX", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0") & " Km"
        Total = "R$ " & Format(Diaria + Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
    Else
   
        Nome = Nome & vbCrLf & rsCnsMtBoy!Name
        Diaria = Diaria & vbCrLf & "40,00"
        TxFinal = TxFinal & vbCrLf & "R$ " & Format(Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
        DiMax = DiMax & vbCrLf & Nz(DSum("DistanciaMAX", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0") & " Km"
        Total = Total & vbCrLf & "R$ " & Format(40 + Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
       
    End If
   
    rsCnsMtBoy.MoveNext
Loop


        .ActiveDocument.Bookmarks("A36").Select
        .Selection.Text = Nome

        .ActiveDocument.Bookmarks("A37").Select
        .Selection.Text = Diaria
       
        .ActiveDocument.Bookmarks("A38").Select
        .Selection.Text = TxFinal
       
        .ActiveDocument.Bookmarks("A39").Select
        .Selection.Text = DiMax
       
        .ActiveDocument.Bookmarks("A40").Select
        .Selection.Text = Total