Lo siento no me explique bien.....
Lo que pasa es que la lista esta llena y con lo que me explicas solo podria guardar unsolo elmento, y lo que quiero es guardar todos los elementos ......
Tambien trate de guardar los elemtos de la lista con
For i = 0 To contlist - 1
reg!dieta = reg!dieta + Me.List2.List(i)
Next i
donde contlist tiene el numero de items en la lista
Disculpas por lo tarde de mi respuesta...
Gracias de todos modos...