Visual Basic - COMO GRABAR DE UN LISTBOX A UNA BASE DE DATOS

HOLA,
POR FAVOR SI ALGUIEN SABE, COMO GRABAR DE UN LIST BOX A UNA BASE DE DATOS DE ACCESS, COMO GUARDAR CADA ELEMENTO DE LA LISTA, NO SE COMO HACERLO..

MUCHAS GRACIAS

Este codigo lo utilizo para grabar listbox completas, espero que te sirva.

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Variable = Vector(i)
sq = ""
' graba los Datos del Listbox
sq = "Insert Into Tabla (Campo1,campo2,Campo3) values (Variable1,Variable2,Variable3)"
NombreBase.Execute sq, 64
End If
Next i
Las variables que son texto se graban asi: '" & variable & "'"
Las variables que son texto se graban asi: " & variable & " y si es terminal :" & variable