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.

Lo normal es que primero insertes los registros en la tabla y después los muestres en la "Grilla".

Ahí va el ejemplo:

Open sArchivo For Input As #1
Do While Not EOF(1)
Line Input #1, sLinea
If sLinea <> "" Then
a = Split(sLinea, """")
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs(i) = a(i)
Next i
rs.Update
End If
Loop
Close #1
rs.MoveFirst
Set DataGrid1.DataSource = rs

La declaración de las variables lo dejo de tu cuenta.