Visual Basic - Listbox

Hola.Necesito que todos los datos de un listbox me pasen a la Base de Datos.
Alguien me podria poner algun ejemplo, por favor.
Gracias

Esta podria ser una forma:
for i=0 to List1.Listcount-1
Rs.Addnew
Rs!Campo=List1.List(i)
Rs.Update
Rs.Requery
Next i

Graciasss....va de lujo

for x=0 to list1.listcount-1
dato=list1.list(x)
base.recordset.addnew
base.recordset.fields("campo")=dato
base.recordset.movenext
next

saludos