1: 2: 3: 4: 5: 6:
select distinct t1.ID, t1.Description, stuff((select ',' + Code from yourtable where ID = t1.ID for xml path('')), 1,1,'') as Codes, t1.[Date Due] from yourtable as t1