Cuanta el numero de elementos en la lista, con este valor crea un bucle (for) que asi cada vez agregas a la base de datos el elemento y continuas moviendote
'Doy por hecho la conexion a la BD
For i=0 to list1.listcount
Data1.Recordset.AddNew
Data1.Recordset.Fields("Elcampo")=list1.list(i)
Data1.Refresh
Next i
'No probe el codigo me encuentro en un cafe, pero va or ahi
'Mil disculpas por los errores que pueda tener
'Lo pongo solo como Ejemplo
Salu2