I am using a listbox to display numbers and each number has other values included with it. (Example: 173 - Monday - House, 173 - Tuesday - Cabin, etc.) I load all the numbers in a combo box but it repeats them as many times as they are entered as expected. How do I remove the doubles and display all the information from the number into a listbox?

(Example: 123,173,(Selected: 200)) Listbox would display: Tuesday - House
Monday - Cabin etc

any suggestions?

Code:
'loads values in combo box
With rs2
        cboremove.Clear
        Dim a As Integer
        rs2.MoveFirst
        For a = 1 To rs2.RecordCount
        cboremove.AddItem rs2![RiderNumber]
        If a <> rs2.RecordCount Then rs2.MoveNext
        Next a
End With