No controlo de ADOC y tal, pero imagino que de algún modo cada elemento seleccionado del listbox conlleva guardar varios datos diferentes en la base.
Creo que lo que fradve te sugiere es que guardes cada valor en una matriz de tipo definido por tí.
Para que lo tengas fácil te voy a hacer la mitad del trabajo de lo que yo creo que dice.
Así me entretengo y quzá te aclare la cosa.
Código vb:
Ver originalOption Explicit
Private Type Clientes
nombre as String
apellido as String
.
.
.
(los campos que sean)
End Type
Dim Tabla () As Clientes
Private Sub Form_Load()
' creamos el primer elemento
Redim Tabla(0)
End Sub
'en el click del listbox creas un elemento para la matriz y guardas ahí todos los datos que hay que mandar despues.
private sub list1_click()
'primero puedes mirar si ya lo has añadido, si quieres poder actualizarlo
dim f as long
for f=0 to ubound(tabla) - 1
' si existe
if tabla(f).nombre=nombreainsertar then
' lo actualizamos
goto guardar
endif
next f
'si no existe con anterioridad
'se guardan los valores en el último elemento de la tabla
f=ubound(tabla)
' y preparamos ya el siguiente elemento de la tabla
redim preserve Tabla(f+1)
guardar:
tabla(f).nombre=nombreainsertar
tabla(f).apellido=
tabla(f)...
End sub
Después en un botón guardas los elementos de la tabla desde 0 hasta ubound(tabla)-1
Recuerda también en el botón reiniciar la tabla: Redim Tabla(0)
Espero haber ayudado además de pasar un rato entretenido.
Suerte