Visual Basic - Importar TXT a Tabla Access

Estimados:

tengo un archivo de texto con datos separados por Espacios y cargarlo hacia una grilla en VB6
Ej:
001 17251204 16/11/1985 22:20
002 19745632 22/11/1985 15:40
003 22456781 15/01/2001 09:08

y luego realizar lo mismo pero cargarlo a una BD Access en la misma cantidad de campos, siempre importando desde el TXT
en resumen, importar un TXT hacia una Grilla e importar TXT hacia una Tabla en Access, en codigos distintos.

gracias de antemano.

Te pongo un ejemplo de un programa en el que leo un fichero de textoy los cargo en una tabla:

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile(archivo, 1)

num_linea = 0

Do While a.AtEndOfStream <> True
linea = a.ReadLine
num_linea = num_linea + 1
rs.AddNew
rs!Numeracion = num_linea
rs!Tipo_reg = tipo_registro
rs!Cod_prod = Mid(linea, 2, 2)
rs!Cod_cliente = Mid(linea, 4, 8)
rs.Update
rs.MoveLast
Loop
a.Close

num_registros = num_linea
'
MsgBox ("Fichero cargado")

En el mensaje anterior no he borrado una variable (tipo registro) que utilizo en mi programa y te puede liar.


Te pongo un ejemplo de un programa en el que leo un fichero de textoy los cargo en una tabla:

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile(archivo, 1)

num_linea = 0

Do While a.AtEndOfStream <> True
linea = a.ReadLine
num_linea = num_linea + 1
rs.AddNew
rs!Numeracion = num_linea
rs!Cod_prod = Mid(linea, 2, 2)
rs!Cod_cliente = Mid(linea, 4, 8)
rs.Update
rs.MoveLast
Loop
a.Close

num_registros = num_linea
'
MsgBox ("Fichero cargado")

Buenas tardes...:

Tengo los siguientes archivos de texto:
AP.txt: 17 columnas
AF.txt: 19 columnas
CT.txt: 4 columnas
US.txt: 10 columnas
Sus campos están delimitados por comas, tienen ancho fijo y cada archivo tiene un número determinado de columnas.

Desde hace mucho tiempo estoy buscando un código en visual que me permita importar estos archivos a una bd de acces 2007. Estos archivos se deben importar a unas tablas con el mismo nombre y sus campos se encuentran delimitados por su extensión en caracteres y cada archivo por el número de columnas.
Lo que se busca es importarlos todos al tiempo, no uno por uno.

Les agradecería me colaboren ya que me estoy ahogando en mi trabajo a falta de esto.

Muchas gracias