Felter fra subform

Jeg skal have fat i felterne i en subform, hvor der kan være flere rækker der skal med - men jeg kan ikke få den til at vise flere linjer.

I nedenstående har jeg forsøgt udfra noget jeg har googlet mig frem til, men det virker ikke - det er kun referencen længere nede i koden der virker, men den viser desværre kun første linje og ikke alle linjerne:


Private Sub Kommandoknap14_Click()

Dim Journal As String
Dim strMyValues As String

Dim rs As DAO.Recordset
Set rs = Me.Afholdt_før_lovgivning_underformular.Form.RecordsetClone
  Do While Not rs.EOF
        strMyValues = strMyValues & "" & Me.Afholdt_før_lovgivning_underformular.Form.Periode & ""
        rs.MoveNext
  Loop

Journal = "Afholdt før 30.06.13 i perioden: " & vbNewLine
Journal = Journal & "HER SKAL PERIODE + ANTAL MDR FRA SUBFORM STÅ" & vbNewLine
Journal = Journal & Me.Afholdt_før_lovgivning_underformular.Form.Periode & vbNewLine 'Denne linje virker
Journal = Journal & strMyValues & vbNewLine
Journal = Journal & Me.NavnBorger & " har " & Me.Rest_før_lovgivning & " mdr. bidragsfrihed tilbage. " & vbNewLine
Journal = Journal & "Ny beregning af ret til pause, giver ret til yderligere " & Me.Ny_lovgivning & " mdr. sammenlagt i alt " & Me.Antal_måneders_bidragsfrihed & " mdr." & vbNewLine
Journal = Journal & "Informationsbrev omj yderligere afholdelse af bidragsfrihed/pause sendt til " & Me.NavnBorger & " d.d." & vbNewLine
Journal = Journal & "Beregning femt i EDH" & vbNewLine
Journal = Journal & MedarbNavn & "    YDS/Fleksydelse"

Text2Clipboard (Journal)

End Sub

Er der en der kan hjælpe mig?
Jeg kan også sende databasen hvis det er nogen hjælp.