RE:Pasar campo memo a campo texto
Te aconsejaria que la importacion la hiceras sobre la definicion de la tabla segun quieres que quede. Te evitarias mucho trabajo.
¿De donde vienen los datos?. De un fichero plano (*.txt), de otra base de datos...
Por lo que indicas has importado todo a una tabla con un solo campo y en el estan todos los datos, y lo que quieres es trocearlo para mover cada trozo a un campo en otra tabla o base de datos.
Revisa la tabla y comprueba que en todas las filas de la tabla los campos a separar tienen la misma longitud Y SI ES ASI procede de la siguiente manera:
1- Define tantos campos de trabajo (con su correspondiente tipo) como campos tengas en la tabla de salida.
dim campo1 as ....... (string, long, .....)
dim campon as ......
2- Create un recordset con la tabla de entrada (rsEntrada)
3- DO UNTIL rsEntrada.Eof
campo1 = Left(rsEntrada(0), LongitudCampo1)
campo2 = Mid(rsEntrada(0), PI2, LongitudCampo2)
campo3 = Mid(rsEntrada(0), PI3, LongitudCampo3)
campon = Right(rsEntrada(0), LongitudCampon)
donde PI2 (posicion inicial campo2) = 1+LongitudCampo1
PI3 (posicion inicial campo3) = PI2 + LongitudCampo2
dbBasedatos.Execute "INSERT INTO TablaSalida " & _
"VALUES (campo1, campo2, ........ campon)
rsEntrada.MoveNext
LOOP
Con esto habras cargado la nueva tabla. Comprueba visualmente el resultado, sobre todo si tienes campos con texto