How To Add To A List (not Replace)?

I have a combobox called ‘SupplierList’ full of suppliers that the user can choose from. Then I have a listbox called “SupplierQuery’ which is empty. The user will double-click on a name in ‘SupplierList’ to add the suppliers that they want to include in some future query. I have this as the event procedure so far:



Private Sub SupplierList_DblClick(Cancel As Integer)

With Me.SupplierQuery.RowSource = _

"SELECT Supplier " & _

"FROM GS_List_Suppliers " & _

"WHERE Supplier = '" & Me.SupplierList.Value & "';"

End With

End Sub



This works insofar as it adds the double-clicked name to the ‘SupplierQuery’ listbox. But it replaces the previous double-clicked name with the newly double-clicked name each time.
How can I make so that it adds each newly dbl-clicked name - forming a list of names in the listbox - instead of replacing the previous entry? If possible, I would like it to
get the listed results directly from a table through a query.