I have a report that needs to print a detail line from an unbound control in
the detail line. I read a databae to populate this unbound control. However,
the problems that I'm having is that the vba code works correct meaning that
it retrieves the information but the report (unbound control) does not show
the information when the report print.

Can someone give me guidance to enable me to print the detail line instead of
not printing anything.

Thank you for guidance.

Luis

CODE:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Call F35detailPoc(unboundF35Line)
Me.POC = unboundF35Line
End Sub

Function F35detailPoc(unboundF35Line)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim strRead As String

strRead = "SELECT [tblAwardFeeF-35contact].[F-35Contact] " _
  & "FROM [tblAwardFeeF-35contact]" _
  & "WHERE ((([tblAwardFeeF-35contact].Period)=" & Me.Period & ")" & " AND (
([tblAwardFeeF-35contact].Phase)=" & "'" & Me.Phase & "')" & " AND ((
[tblAwardFeeF-35contact].EvaluationArea)=" & "'" & Me.EvaluationArea & "')" &
" AND (([tblAwardFeeF-35contact].[Item No])=" & Me.Item_No & "))"

Set dbs = CurrentDb()
Set rs = CurrentDb.OpenRecordset(strRead)
       With rs
               Do Until rs.EOF
                   Debug.Print "rs field = " & rs![F-35Contact] &
unboundF35Line
                   unboundF35Line = unboundF35Line + rs![F-35Contact] &
vbNewLine
                  .MoveNext
               Loop
              'Debug.Print "emailstring - 1= " & emailstrng
       End With

Set rs = Nothing
End Function