Visual Basic - guardar datos de un list n 1 tabla

tngo l siguente codigo, y con sto voy camino de querer guardar desde un list a una tabla todos los datos q ponga, podeis guiare pf? muchisimas gracias

Private Sub Guardar_Click()
Dim RS As Recordset
Dim Rec As Recordset

If (MsgBox("¿Estas seguro de querer guardar el registro?", vbYesNo, "Guardar") = vbYes) Then

Set Rec = CreateObject("Adodb.recordset")
Rec.Open "select * from armas", CurrentProject.Connection, 3, 3

Rec.AddNew
'while
Rec.Fields(0).Value = cod_verif.Value
Rec.Fields(1).Value = lista_arma.Value
Rec.Update

MsgBox "Registro guardado"
'Form_Load
End If
End Sub

Hola Ainhoa, te he contestado a tu correo esta mañana. Espero que todos los problemas se hayan solucionado.

Saludos Pola