Visual Basic - Listbox

Hola!!!
Por favor necesito ayuda con listbox. Como puedo recorrrer los elementos con un bucle de una listbox y una vez hecho esto mandarlos a una base de datos creada en Access de manera que cada elemento del listbox se almacene en una celda
Muchas gracias

for i=0 to list1.listcount
adodc1.recordset.addnew
adodc1.recordset.fields(campo1).value=list1.list(i)
adodc1.recordset.update
next

este codigo recorre toda la lista de listbox y va guardando los datos en el campo1.

espero te sirva
suerte