 
			
				15/04/2005, 13:46
			
			
			     |  
      |    |    |    Fecha de Ingreso: enero-2002  
						Mensajes: 29
					  Antigüedad: 23 años, 9 meses Puntos: 0     |        |  
  |      intenta esto:   
dim i as integer 
dim StrVar as string   
for i =0 to  tablaorigen.rows.count-1 
strvar =  strvar & dgProductos.Items(i).Cells(2).Text 
next   
Suerte.           |