Guardar Structura TYPE en un campo OLE

[Hager]

por que no creas un archivo con estos datos?? crea el fichero y dale formato de separacion, los cargas cuando los necesites y listo, seria una forma de simular esto, o usa una base de datos que contenga el nombre de cada uno de tus campos y cuando quieras guardar almacenas por medio de un bucle en la bd

type uno
dato as string
dato2 as string
end type

dos() as uno
dim cadena as string
'para el caso 1 seria
for i=0 to ubound(dos)-1
cadena=cadena & dos()i.dato & ":" & dos()i.dato & "!"
next i

esta cadena te almacenara los datos del type y crea un metodo de archivado, para leerlo puedes usar los siguiente
'claro despues de haber abierto el archivo , decimos que cadena es 'el contenido de archivo

dim aux,aux2
aux=split(cadena,"!)'con esta instruccion separamos los types
for i=0 to Ubound(aux)-1
aux2=split(aux(i) & ":" ,":")'con esta instruccion separamos los datos de cada 'type
redim preserve dos(0 to ubound(dos)+1)
dos(ubound(dos)).dato=aux2(0)
dos(ubound(dos)).dato2=aux2(1)
next i
aqui ya te habria cargado los datos,

ahora con un recordset claro despues de haber echo la coneccion y haber creado el recodset
for i=0 to ubound(dos)-1
rs.addnew
rs.dato=dos(i).dato
rs.dato2=dos(i).dato2
rs.update
next i
'bueno la idea es esa , espero te sirva!