 
			
				26/09/2006, 07:45
			
			
			     |  
        |     |    |    Fecha de Ingreso: junio-2006  Ubicación: Buenos Aires, Argentina  
						Mensajes: 53
					  Antigüedad: 19 años, 4 meses Puntos: 0     |        |  
           la respuesta anterior esta bien, lo que puedo agregar a eso es que al primer campo le des un formato igual 
ej 
List1.AddItem format(reg.Fields(0),"000000") & vbTab & reg.Fields(1)   
y para saber cual es el codigo elegido   
codigo=mid(list1.text,1,6)   
saludos           |