Sub import()

Dim MyChar
Open "C:\test.txt" For Input As #1    ' Open file.
Do While Not EOF(1)    ' Loop until end of file.
    MyChar = Input(1, #1)    ' Get one character.
    Debug.Print MyChar    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

End Sub

Sub openTable2()
Dim txt As String
Dim strsql As String
Dim lngCount As Long
Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim i As Integer
Dim j As Integer
Dim rows() As String
Dim cols() As String


Set db = CurrentDb()

Set rst = db.OpenRecordset("Òàáëèöà1")

Open "C:\c.txt" For Binary As #1
txt = Space(LOF(1))
Get #1, , txt
Close #1

rows = Split(txt, vbCrLf + vbCrLf)

For i = 1 To UBound(rows)
 If i = 1 Then rst.AddNew Else rst.AddNew
rst("ïîëå2").Value = rows(i)
            rst.Update
        Next i
        rst.MoveNext
 
rst.Close
db.Close
Set RS = Nothing
Set db = Nothing


End Sub