Import method not work

[Bill Mounce]

I am doing a simple import, and the data is not transferring from the  
tInput variable into the Valentina field. I am sure I am missing  
something simple. Any help? The method is in the boPerson table where  
dbWord exists.

  Dim f As FolderItem
  Dim t As TextInputStream
  Dim tInput String

  f=GetOpenFolderItem("BBEDIT")
  if f=nil then
    return
  end if

  t=f.OpenAsTextFile

  Do

    tInput=t.ReadLine
    SetBlank
    dbWord.Value = tInput
    AddRecord

  Loop Until t.EOF

  Flush