'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