Visual Basic - Grabar un archivo de txt a una base de datos

Como puedo hacer para leer un archivo de texto en forma secuencial y grabar cada linea como un registro en una Base de Datos de Acces

Fijate con esto:

Dim Lineas As Variant

Lineas = Split(FileToString("MiArchivo.txt"),vbCrLF)

Luego, Lineas es un vector con cada registro:

For i=LBound(Lineas) To UBound(Lineas)
' Codigo para agregar el registro
Next i

Para agregar los registros a la tabla Access depende de que método de acceso a datos utilices (DAO, RDO, ADO).

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
Exit Function
ErrorHandler:
FileToString = Empty
End Function