Hola
Si entiendo bien lo que quieres...
lo que tienes que hacer es recorrer el listbox e ir guardandolo en la tabla correspondiente
For v = 0 To List6.ListCount
rst.AddNew
rst.Fields(pos) = List6.List(v)
rst.Update
Next
donde rst=nombre del recordset
pos = es el numero que identifica la posicion del campo dentro de la tabla. Recuerda que el 0 es el primero, 1 es el segundo y asi sucesivamente...
Saludos
