Import and Export txt to SQl server

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try


            Dim StartDate As DateTime
            Dim EndDate As DateTime
            Dim SourceIPAddress As String
            Dim DestinationIPAddress As String
            Dim DestinationPort As String
            Dim Protocol As String
            Dim Bytes As Integer
            Dim Contents As String
            SourceIPAddress = String.Empty
            DestinationIPAddress = String.Empty
            DestinationPort = String.Empty
            Protocol = String.Empty
            Contents = String.Empty
            Dim strSQL As String
            Dim strConnString As String = "Data Source=.;Initial Catalog=Northwind;Integrated Security=True"
            Dim Con As New SqlConnection(strConnString)
            Dim objCmd As SqlCommand

            Dim vText As String
            Dim vstring(-1) As String
            Dim p1 As String() = {vbTab} 'Note I am using a string array and the vbTab Constant
            Dim vData As String = ""
            Con.Open()
            Using rvsr As New StreamReader("E:\Rastpro\logfile.txt")
                While rvsr.Peek <> -1
                    vText = rvsr.ReadLine()
                    vstring = vText.Split(p1, StringSplitOptions.RemoveEmptyEntries) 'I am also using the option to remove empty entries a
                    Contents = vstring(3)
                    Dim TestArray() As String = Split(Contents)
                    Dim duration As Integer = Array.Find(TestArray, Function(x) (x.StartsWith("duration"))).Replace("duration=", "")


                    Dim service As String = Array.Find(TestArray, Function(x) (x.StartsWith("service"))).Replace("service=", "")
                    Dim sent As Integer = Array.Find(TestArray, Function(x) (x.StartsWith("sent"))).Replace("sent=", "")
                    Dim rcvd As Integer = Array.Find(TestArray, Function(x) (x.StartsWith("rcvd"))).Replace("rcvd=", "")
                    Dim src As String = Array.Find(TestArray, Function(x) (x.StartsWith("src="))).Replace("src=", "")
                    Dim dst As String = Array.Find(TestArray, Function(x) (x.StartsWith("dst="))).Replace("dst=", "")
                    Dim dst_port As String = Array.Find(TestArray, Function(x) (x.StartsWith("dst_port"))).Replace("dst_port=", "")

                    'this line for dst and src zone 
                    Dim TempArray() As String = Split(Contents.Replace("src zone", "src_zone").Replace("dst zone", "dst_zone"))
                    Dim srczone As String = Array.Find(TempArray, Function(x) (x.StartsWith("src_zone"))).Replace("src_zone=", "")
                    Dim dstzon As String = Array.Find(TempArray, Function(x) (x.StartsWith("src_zone"))).Replace("src_zone=", "")

                    StartDate = Convert.ToDateTime(vstring(0)).AddSeconds(duration)
                    EndDate = Convert.ToDateTime(vstring(0))
                    SourceIPAddress = src
                    DestinationIPAddress = dst
                    DestinationPort = dst_port
                    Protocol = service.Replace("port", "")
                    Bytes = rcvd + sent
                    strSQL = "insert into Rory(StartDate,EndDate,SourceIPAddress,DestinationIPAddress,DestinationPort,Protocol,Bytes) values('" & StartDate & "', '" & EndDate& "', '" & SourceIPAddress & "', '" & DestinationIPAddress & "', '" & DestinationPort & "', '" & Protocol & "', '" & Bytes & "')"
                    objCmd = New SqlCommand(strSQL, Con)

                    objCmd.ExecuteNonQuery()

                End While
            End Using

        Catch ex As Exception
            Trace.Write(ex.Message)
        End Try
    End Sub