Передача данных из текстового файла в БД

Dim massivStrok() = io.file.readalllines(TextFile, system.text.encoding.default) 'считываем все строки файла в массив
dim StartData
dim StopData=massivStrok.lenght-1 'поскольку нам нужны строчки до конца, то позиция последней строки нам тоже пригодится
dim StrToShow as string 'ну это вообще не нужно, просто чтобы нам было можно посмотреть результат
StrToShow="наименование значение" & chr(10)
for i=0 to massivStrok.lenght-1
if instr(massivstrok(i),"decisions",1)<>0 then 'нашли строчку...сработает если этого слова нет в другом месте файла. иначе не сработает
startdata=i+1                'а вот эта первая строка в которой нужные нам данные
exit for 'завершим цикл за ненадобностью
end if
next
'первую строчку знаем, теперь отфильтруем все лишнее... давайте сначала в массивчик, а не в какую не в базу
Dim Itog(,) 'двумерный массив в который будем записывать результат
 for i=startdata to stopdata
itog(0,i-startdata)=mid(massivstrok(i),1+instr(massivstrok(i),"(",1),instr(massivstrok(i),")",1)-instr(massivstrok(i),"(",1)-1)
itog(1,i-startdata)=right(massivstrok(i),len(massivstrok(i))-instr(massivstrok(i),")",1)-2) '-2 тк там два символа после скобки-то...")" а потом еще ": "
strtoshow=strtoshow & itog(0,i-startdata) & " " itog(1,i-startdata) & chr(10)
next

itog(0 to 1,0 to stopdata-startdata)

msgbox(strtoshow)

        Dim massivStrok() = IO.File.ReadAllLines(Txtfl, System.Text.Encoding.Default) 'считываем все строки файла в массив
        Dim StartData
        Dim StopData = massivStrok.Length - 1 'поскольку нам нужны строчки до конца, то позиция последней строки нам тоже пригодится
        Dim StrToShow As String 'ну это вообще не нужно, просто чтобы нам было можно посмотреть результат
        StrToShow = "наименование значение" & Chr(10)
        For i = 0 To StopData
            If InStr(massivStrok(i), "decisions", CompareMethod.Text) <> 0 Then 'нашли строчку...сработает если этого слова нет в другом месте файла. иначе не сработает
                StartData = i + 1                'а вот эта первая строка в которой нужные нам данные
                Exit For 'завершим цикл за ненадобностью
            End If
        Next
        'первую строчку знаем, теперь отфильтруем все лишнее... давайте сначала в массивчик, а не в какую не в базу
        Dim itog(0 To 1, 0 To StopData - StartData) 'двумерный массив в который будем записывать результат
        For i = StartData To StopData
            itog(0, i - StartData) = Mid(massivStrok(i), 1 + InStr(massivStrok(i), "(", CompareMethod.Text), InStr(massivStrok(i), ")", CompareMethod.Text) - InStr(massivStrok(i), "(", CompareMethod.Text) - 1)
            itog(1, i - StartData) = Microsoft.VisualBasic.Right(massivStrok(i), Len(massivStrok(i)) - InStr(massivStrok(i), ")", CompareMethod.Text) - 2) '-2 тк там два символа после скобки-то...")" а потом еще ": "
            StrToShow = StrToShow & itog(0, i - StartData) & " " & itog(1, i - StartData) & Chr(10)
        Next
        MsgBox(StrToShow)

 Dim massivStrok() = IO.File.ReadAllLines(Txtfl, System.Text.Encoding.Default) 'считываем все строки файла в массив

Dim massivStrok() = IO.File.ReadAllLines(Txtfl, System.Text.Encoding.UTF8) 'считываем все строки файла в массив