Private Sub load_data(ByVal file As String, ByVal dt As DataTable, ByVal dgv As _
  DataGridView)
 
        Dim dtrow As DataRow
        Dim x As Integer = 0
        Dim i As Integer = 0
        Dim enc As System.Text.Encoding
        enc = System.Text.Encoding.UTF8
        Dim sr As New IO.StreamReader(file, enc)
        Dim columns() As String
        Dim c() As String
        Dim srline As String
        Dim delimiter As String = ";"
 
        srline = sr.ReadLine()
        If srline.Contains(";") = True Then
            delimiter = ";"
        ElseIf srline.Contains(",") = True Then
            delimiter = ","
        End If
 
        columns = srline.Split(delimiter)
        x = columns.Length - 1
 
        For i = 0 To x
            With dt
                .Columns.Add(columns(i), GetType(String))
            End With
        Next
 
        Do
            srline = sr.ReadLine()
            If IsNothing(srline) Then Exit Do
            c = srline.Split(delimiter)
            dtrow = dt.NewRow()
            dtrow.ItemArray = c
            dt.Rows.Add(dtrow)
        Loop
 
        bs = New BindingSource
        bs.DataSource = dt
        dgv.DataSource = bs
 
    End Sub