Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  dim db as DAO.database
  dim rst as DAO.recordset
  dim sql as String
  dim sCommitteeList as String

  sql = "select c.committeename from Committee c left join MemberContact m on m.committeeid = c.id where m.id  = " & Me.ID.value
  set db = currentdb()
  set rst = db.Openrecordset(sql)

  do while not rst.EOF
     'concatenate
     if len(sCommitteeList ) = 0 then
        sCommitteeList  = Nz(rst.Fields("committeename"),"")
     else
        sCommitteeList  = sCommitteeList  & ","  & Nz(rst.Fields("committeename"),"")
     end if

     rst.Movenext
  loop
  rst.Close

  set rst = nothing
  set db = nothing

  Me.txtCommitteeList.value = sCommitteeList  

End Sub