Capture System.IO Rows From Incoming File And Insert Into Table

Ok, I'm not quite sure how to approach this one.  This is a VB.NET console app in which I want to capture each row and throw it into a table.  The reason being, they want a report on what was processed...which I'll be able to do easily in Reporting Services 2005 once this crap is in a table where it should be.

1) What should I use to do this, dataset?  I want to use stored procedures also, not inline SQL

Function here takes an incoming file, and splits it up into separate files.  I want to insert each row that is succesfully split

    Public Sub ProcessFiles(ByVal sIncomingfile As String, ByVal sOutputDirectory As String)

        If sIncomingfile <> "" And sOutputDirectory <> "" Then

            Dim f As New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.None)
            f.AllLocalFiles = Security.Permissions.FileIOPermissionAccess.Read

            Dim file As New IO.FileInfo(sIncomingfile)
            Dim filefs As IO.FileStream = Nothing
            If file.Exists Then
                Try
                    filefs = New IO.FileStream(file.FullName, IO.FileMode.Open)  'Place: 1
                Catch ex As Exception
                    SendEmail("Incoming .mnt or .naf Filename Invalid or not found", "Place: 1")
                    Application.Exit()
                End Try
            End If

            Dim reader As New IO.StreamReader(filefs)
            Dim counter As Integer = 0

            Dim CurrentFS As IO.FileStream
            Dim CurrentWriter As IO.StreamWriter
            Dim extension As String = IO.Path.GetExtension(file.FullName)


            If extension = ".mnt" Then
                While Not reader.Peek < 0
                    Dim Line As String = reader.ReadLine
                    If IsNumeric(Line.Substring(0, 1)) Then
                        Dim Parts() As String = Line.Split(" "c) ' split row into parts
                        If Parts(0).Length = 8 Then ' if first part is 8 then know we hit another header so cut and then write to file
                            counter += 1
                            If Not CurrentWriter Is Nothing Then CurrentWriter.Flush() : CurrentWriter.Close()
                            CurrentFS = New IO.FileStream(IO.Path.Combine(IO.Path.GetDirectoryName(sOutputDirectory), Line.Substring(59, 4) & "[" & counter.ToString & "]" & Now.ToString("MM-dd-yyyy") & IO.Path.GetExtension(file.FullName)), IO.FileMode.Create)
                            CurrentWriter = New IO.StreamWriter(CurrentFS)
                        End If

                        If Not CurrentWriter Is Nothing Then
                            CurrentWriter.WriteLine(Line)
                        End If

                    End If
                End While

                If Not CurrentWriter Is Nothing Then CurrentWriter.Flush() : CurrentWriter.Close()

                MoveFilesFTP(sOutputDirectory, "mnt")

            ElseIf extension = ".naf" Then
                While Not reader.Peek < 0
                    Dim Line As String = reader.ReadLine
                    If Not IsNumeric(Line.Substring(0, 1)) Then ' if first part is not a number, then we know it's a header so split the file
                        counter += 1
                        If Not CurrentWriter Is Nothing Then CurrentWriter.Flush() : CurrentWriter.Close()
                        CurrentFS = New IO.FileStream(IO.Path.Combine(IO.Path.GetDirectoryName(sOutputDirectory), Line.Substring(6, 4) & "[" & counter.ToString & "]" & Now.ToString("MM-dd-yyyy") & IO.Path.GetExtension(file.FullName)), IO.FileMode.Create)
                        CurrentWriter = New IO.StreamWriter(CurrentFS)
                    End If

                    If Not CurrentWriter Is Nothing Then
                        CurrentWriter.WriteLine(Line)
                    End If

                End While

                If Not CurrentWriter Is Nothing Then CurrentWriter.Flush() : CurrentWriter.Close()

                MoveFilesFTP(sOutputDirectory, "naf")
            End If
        Else
            'input file not valid
            SendEmail("Incoming .mnt or .naf Filename Invalid", "Place: 1")
        End If
    End Sub