text fra løkker til mssql

Hej Alle,

Jeg sidder og kæmper med at læse 3 forskellige linjer i forskellige .txt dokumenter.

Jeg har fået den til at læse de forskellige linjer, men jeg kunne godt tænke mig at smide de 3 linjer ind i en dertil indrettet tabel i en mssql database.

Det er muligvis noget værrere spagethi kode, men er ret "rusten" til vb.net

altså, Pin - Phone - Message, skal ind i min mssql database. i samme tabel.

Jeg har prøvet noget forskelligt, men jeg rammer hovedet mod muren fordi jeg har alle de løkker, og fordi jeg faktisk er ret ny i vb.net.

På forhånd mange tak - her kommer koden:

Imports System.IO
Module Module1
    Sub Main()
        Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\testmails")
        Dim fiArr As System.IO.FileInfo() = di.GetFiles("*.txt")
        For Each fi As System.IO.FileInfo In fiArr
            Using sr As IO.StreamReader = New IO.StreamReader(fi.FullName)
                Dim line As String
                While (sr.Peek() <> -1)
                    line = sr.ReadLine()
                    If (line.StartsWith("Pin:")) Then
                        line = line.Replace("Pin: ", "")
                        MsgBox(line)
                        Console.WriteLine(line) ' Her skal skrives til databasen istedet.
                        Exit While
                    End If
                End While
            End Using
            Using sr As IO.StreamReader = New IO.StreamReader(fi.FullName)
                Dim line As String
                While (sr.Peek() <> -1)
                    line = sr.ReadLine()
                    If (line.StartsWith("Phone:")) Then
                        line = line.Replace("Phone: ", "")
                        MsgBox(line)
                        Console.WriteLine(line) ' Her skal skrives til databasen istedet.
                        Exit While
                    End If
                End While
            End Using
            Using sr As IO.StreamReader = New IO.StreamReader(fi.FullName)
                Dim line As String
                While (sr.Peek() <> -1)
                    line = sr.ReadLine()
                    If (line.StartsWith("Message:")) Then
                        line = line.Replace("Message: ", "")
                        MsgBox(line)
                        Console.WriteLine(line) ' Her skal skrives til databasen istedet.
                        Exit While
                    End If
                End While
            End Using
        Next
    End Sub
End Module