Как импортировать строки текстового файла в столбцы таблицы - VB

Формулировка задачи:

Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас помочь примером
есть текстовый файл с нижеуказанным содержимым
--------------------------------------------
1Период энеолита заменил период бронзы:
2начиная с конца VI тысячелетия до н.э.
3начиная с конца II тысячелетия до н.э.
4начиная с конца III тысячелетия до н.э.
5начиная с конца IV тысячелетия до н.э.
6начиная с конца XI тысячелетия до н.э.
/
1Период бронзы продолжался до:
2конца I тысячелетия до н.э.
3конца VII тысячелетия до н.э.
4конца III тысячелетия до н.э.
5конца VIII тысячелетия до н.э.
6конца II тысячелетия до н.э.
----------------------------------------------
есть база данных с таблицей test
таблица содержит 6 столбцов
подскажите пожалуйста
как можно сделать так чтобы
при нажатии на кнопку
первая строка файла села в поле таблицы1
вторая в поле таблицы2 и так до символа разделителя "/"
после разделителя все начинается заново
я понимаю что это реализовывается через цикл
но вот сам код импортирования строк в таблицы я не знаю
С Уважением и Благодарностью
Намик

Решение задачи: «Как импортировать строки текстового файла в столбцы таблицы»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>
Пример загрузки текстового файла приведенного автором ветки в Recordset:

<font color="blue">Public</font> <font color="blue">Sub</font> Main()
    <font color="blue">Dim</font> cn <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection, r <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
    
    cn.<font color="blue">Open</font> <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;"</font> & _
          <font color="teal">"Data Source="</font><font color="teal">""</font> & App.Path & <font color="teal">""</font><font color="teal">";"</font> & _
          <font color="teal">"Extended Properties=Text"</font>

    r.<font color="blue">Open</font> <font color="teal">"SELECT * FROM File.txt"</font>, cn
    <font color="blue">Do</font> <font color="blue">Until</font> r.EOF
        Debug.<font color="blue">Print</font> r(<font color="darkblue"><b>0</b></font>).<font color="blue">Name</font> & <font color="teal">": "</font> & r(<font color="darkblue"><b>0</b></font>), r(<font color="darkblue"><b>1</b></font>).<font color="blue">Name</font> & <font color="teal">": "</font> & r(<font color="darkblue"><b>1</b></font>)
        r.MoveNext
    <font color="blue">Loop</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        