Convert grouped records into one string

Public Sub StrAbsences()
'*******************************************
'Purpose:   see:
'           [url]http://www.access-programmers.co.uk/forums/showthread.php?t=67164[/url]
'Author:    raskew
'Inputs:    from debug window:
'           call strAbsences <enter>
'Output:    4/1/04: Dewey, Louie, Huey
'           4/3/04: Scrooge, Daffy
'*******************************************

Dim db      As DATABASE
Dim rs      As Recordset
Dim strHold As String
Dim strSQL  As String
Dim n       As Integer
Dim dteHold As Date

    Set db = CurrentDb
    
    strSQL = "SELECT tblAbsences.absDate, tblAbsences.absName" _
          & " FROM tblAbsences" _
          & " ORDER BY tblAbsences.absDate;"
    
    Set rs = db.OpenRecordset(strSQL)
    
    Do While Not rs.EOF
        dteHold = rs!absDate
        strHold = ""
        Do While rs!absDate = dteHold
           strHold = strHold & rs!absName & ", "
           rs.MoveNext
           If rs.EOF Then Exit Do
        Loop
        n = Len(Trim(strHold))
        'get rid of the trailing ","
        strHold = dteHold & ": " & Left(strHold, n - 1)
        Debug.Print strHold
    Loop
    
    'recover some memory
    rs.Close
    db.Close
    Set db = Nothing
       
End Sub

Public Function Conc(ID) As String
   Dim cnn As ADODB.Connection
   Dim rs As New ADODB.Recordset
   Dim SQL As String
   Dim sConc As String
   'Dim rs As Recordset
   'Dim cnn As String
   
   Set cnn = CurrentProject.Connection
   
'  SQL = "SELECT [Name] FROM [tblData] WHERE [Date]=#" & ID & "#"
 ' SQL = "SELECT [Name] FROM [tblData] WHERE [MeetingID]=" & ID
   SQL = "SELECT [Issue] FROM [tblReportDump] WHERE [ShipNum]=" & ID
   
   rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly
   Do While Not rs.EOF
     sConc = sConc & ", " & rs![Issue]
     If sConc = "," Then
        sConc = ""
     End If
     rs.MoveNext
   Loop
   sConc = Mid(sConc, 3)    'Remove leading comma and space.
   
   Set rs = Nothing
   Set cnn = Nothing
   
   Conc = sConc
   
End Function