Visual Basic - COMO GRABAR DE UN LISTBOX A ACESS

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

'Espero esto te ayude
Harold valdivia : [email protected]

Dim i As Integer
Private Sub Command1_Click()

For i = 0 To List1.ListCount - 1
With Adodc1.Recordset
.AddNew
!nombredelista = List1.List(i)
.Update
End With
Next i
MsgBox "Datos Guardados correctamente", vbInformation + vbOKOnly, "Información"