Puedes leer el archivo, pasarlo a un String y luego manipularlo por filas y luego cortar cada una de acuerdo a las longitudes de tus campos.
No indicas si estás utilizando ADO o DAO.
Archivo = FileToString("MiArchivo.txt")
Lineas = Split(Archivo,vbCrLf)
Luego Lineas es un vector que contiene cada fila del archivo:
Dim i Las Long
For i=LBound(Lineas) To UBound(Lineas)
TuObjetoConnection.Execute "INSERT INTO MiTabla (Campo1,Campo2,Campo3) VALUES (" Left(Lineas(i),3) & "," & Mid(Lineas(i),4,6) & "," & Right(Lineas(i),6) & ")"
Next i
La función para pasar un archivo a un String es:
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