Visual Basic - usar solo "ALGUNOS"

mi problema es el siguiente.... estoy haciendo una BD. usando dos LIST.. en una me debe de aparecer todos los productos y en otra LIST la marca.

PROBLEMA 1: cuando cargo el programa, me llena todooss los productos en la LIST1... ( Lapiz , borrados, pluma, etc ) pero que pasa si tengo almacenado 5 Lapices con varias Marcas ?? me aparecen Lapiz, Lapiz, Lapiz , Lapiz, Lapiz.... quisiera que solo apareciera "1" Producto, ya que para eso quiero utilizar el LIST2.. para poner las "Marcas" de el LIST1

espero que me haya sabido explicar,,,, gracias..

por cierto.. este es el codigo que uso :

Productoss = "Select * From Almacen"
Set Rs = BaseDatos.OpenRecordset(Productoss)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
While Not Rs.EOF

lstVentaArticulo.AddItem Rs(1)
Rs.MoveNext
Wend
End If

Creo que deberias tener una tabla con dos campos, Productos y Marcas
El primer Combo lo llenarías con un Select Distinct, y a la salida de este llenarías el segundo Combo con un Select Where Producto=Combo1

Como te dijeron utiliza el Distinct:

Productoss = "Select Distinct(Codigo),Nombre From Almacen"
Set Rs = BaseDatos.OpenRecordset(Productoss)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
While Not Rs.EOF
lstVentaArticulo.AddItem Rs!Nombre
Rs.MoveNext
Wend
End If

ya se pudoo !!! ahora nomas voy a buscarle con lo de las marcas... sino puedo luego veran otro post mio por aqui jeje... gracias de nuevo