Cargar Tabla de Access con un archivo de texto en VB

[frank_vo]

Open MiArchivo For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, pLinea
Dato1 = Mid(pLinea, 1, 8)
Dato2 = Mid(pLinea, 9, 7)
pConsulta = "insert into tabla (Campo1,campo2)
values (" & Dato1 & "','" & Dato2 & "')
rs.open pConsulta,cn
(tambien puedes usar un commando en vez de un recordset)
pRecuperados = pRecuperados + 1
DoEvents
Loop
Close #1
En este ejemplo, la lineas no tiene separadores ejemplo:
"01012004VALOR01"

Si tu cadena tiene el texto separado por comas, "01012004,VALOR01", puedes usar el metodo instr para encontrar la posicion donde esta la coma y asi separar los campos.

Espero que esto se de utilizadad.

Saludos