Any idea how to force it to read all the caracters in the text file?

--
Regards,
Beert Schrijver

Linefeed codes are sometimes LineFeed, sometimes Carriage Return,
sometimes both. Some lines may be blank. Last line may contain a end of
line, or may not, etc etc etc.

--

Remove NOT from email address to reply. AntiSpam in action.

in the module:
==========

Property Get EOF() As Boolean
    If Me.IsOpen Then
        EOF = VBA.EOF(Me.Handle)
    End If
End Property

in the form:
========

Private Sub cmdReadAll_Click()
  Dim MyName As String
  Dim MyDB As Database
  Dim rs As Recordset
  Dim objFile As clsTextFile

'open de poemtabel voor lezen en schrijven
  Set MyDB = CurrentDb()
  Set rs = MyDB.OpenRecordset("Poem", dbOpenDynaset)
  rs.MoveFirst

'1st record in dir
  MyName = Dir(MyPath)

  Do While MyName <> ""
    If InStr(1, MyName, ".txt") > 0 Then
'get the ID
      rs.FindFirst "[ID]=" & Left(MyName, InStr(1, MyName, ".") - 1)
'zoek het bijbehorende record in de tabel poem
      If Not rs.NoMatch Then
'open file
        Set objFile = New clsTextFile
        objFile.Path = MyPath & MyName
        If objFile.FileOpen() Then
          With rs
            .Edit
            Do Until objFile.EOF
              !txtPoem = !txtPoem & objFile.Text & vbCrLf
              objFile.ReadNext
            Loop
            objFile.FileClose
'write file to tabel
            .Update
          End With
        End If
        Set objFile = Nothing
      Else
'open debugwindow  (Ctrl-G)
        Debug.Print "Fout: " & Left(MyName, 1)
      End If
    End If
'next file
    MyName = Dir
  Loop

  Me.Subformulier_Poem.Requery
  Me.cmdReadAll.Caption = "R E A D Y !!"
End Sub

     Do Until objFile.EOF
        !txtPoem = !txtPoem & objFile.Text & vbCrLf
        objFile.ReadNext
     Loop

When you do the ReadNext, the "text" buffer is loaded, and eof becomes
true!. So, your code will always miss the last line. You need to add one
line code to grab that Left over line. So, you actually need:

     Do Until objFile.EOF
        !txtPoem = !txtPoem & objFile.Text & vbCrLf
        objFile.ReadNext
     Loop

     if len(objfile.txt) > 0 then
        !textPoem = !txtPoem & objFile.Text
     endif

--
Albert D. Kallal     (MVP)
Edmonton,  Alberta Canada

http://www.attcanada.net/~kallal.msn