FilePath = CurrentProject.path + "\test_spaces.txt"
    
    Dim TextLine, rst As DAO.Recordset, db As DAO.Database
    Dim k
    CurrentDb.Execute "delete * from TextFile"
    
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from TextFile")
    

        Open FilePath For Input As #1 ' Îòêðûâàåò ôàéë.
        k = 0
        Do While Not EOF(1) ' Öèêë äî êîíöà ôàéëà.
            k = k + 1
            Line Input #1, TextLine ' ×èòàåò ñòðîêó â ïåðåìåííóþ.
            rst.AddNew
            rst(0) = TextLine
            rst.Update
        Loop
        Close #1    ' Çàêðûâàåò ôàéë.

path = CurrentProject.path + "\": file_name = "test_spaces.txt"
s_sql = "SELECT * INTO tttt FROM [" + file_name + "] In '" + path + "\' [text;]"
Debug.Print s_sql
CurrentDb.Execute s_sql

   FileName = "test_spaces2.txt"
   FilePath = CurrentProject.path + "\"
   
   
  CurrentDb.Execute "delete * from TextFile"
  
  Dim stm As New ADODB.Stream
  Dim RS As New ADODB.Recordset
  

  stm.Type = adTypeText
  stm.Open
  stm.LoadFromFile FilePath + FileName
  stm.Charset = "windows-1251"
  stm.LineSeparator = adLF
  Set rst = CurrentDb.OpenRecordset("select * from TextFile")
  
  While Not stm.EOS
    rst.AddNew
    rst(0) = stm.ReadText(adReadLine)
    rst.Update
  Wend
  
  rst.Close: Set rst = Nothing
  stm.Close
  DoCmd.OpenTable "TextFile"