Si cada línea del archivo de texto corresponde a un registro (no se si se trata de longitud fija o variable), lo puedes separar así:
Dim Lineas As Variant
Lineas = Split(FileToString("MiArchivo.txt"),vbCrLF)
Luego, Lineas es un vector con cada registro, si la longitud es fija lo puedes separar ya cada String con la función Mid de acuerdo a la definición del archivo, si está separado por algún delimitador puedes utilizar nuevamente la función Split para separarlo por ejemplo:
Dim Lineas As Variant, Campos As Variant, i As Long, j As Long
Lineas = Split(FileToString("MiArchivo.txt"),vbCrLF)
For i=LBound(Lineas) To UBound(Lineas)
Campos = Split(Lineas(i),",")
For j=LBound(Campos) To UBound(Campos)
Next j
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
