Private Function get_cms_shipments() As String
Dim db As Database
Dim rs As Recordset
Dim Shipments As String


    Set rs = db.OpenRecordset("SELECT qryInspectionExceptionReport_VCE.[Packing List Number] AS CMSShipments FROM qryInspectionExceptionReport_VCE GROUP BY qryInspectionExceptionReport_VCE.[Packing List Number];")

    rs.MoveFirst
    Shipments = ""

    While Not rs.EOF
        Shipments = Shipments & rs(0)
        rs.MoveNext
        If Not rs.EOF Then
            Shipments = Shipments & ", "
        End
    Wend

    rs.Close
    Set rs = Nothing

End Function