Private Sub openFileDialog1_FileOk(sender As Object, e As _
   System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim filePath As String = OpenFileDialog1.FileName
        Dim extension As String = Path.GetExtension(filePath)
        Dim header As String = If(rbHeaderYes.Checked, "YES", "NO")
        Dim conStr As String, sheetName As String
 
        conStr = String.Empty
        Select Case extension
 
            Case ".xls"
                'Excel 97-03
                conStr = String.Format(Excel03ConString, filePath, header)
                Exit Select
 
            Case ".xlsx"
                'Excel 07
                conStr = String.Format(Excel07ConString, filePath, header)
                Exit Select
        End Select
 
        'Get the name of the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                cmd.Connection = con
                con.Open()
                Dim dtExcelSchema As DataTable = con.GetOleDbSchemaTable( _
                  OleDbSchemaGuid.Tables, Nothing)
                sheetName = dtExcelSchema.Rows(0)("TABLE_NAME").ToString()
                con.Close()
            End Using
        End Using
 
        'Read Data from the First Sheet.
        Using con As New OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
                    Dim dt As New DataTable()
                    cmd.CommandText = (Convert.ToString("SELECT * From [") & _
                      sheetName) + "]"
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()
 
                    'Populate DataGridView.
                    dataGridView1.DataSource = dt
                End Using
            End Using
        End Using
    End Sub

	2017050000000	 AHEF2ND	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NE	 5N0512011BS	1	1	 15.05.2017 14:00:35
	2017050000000	 AHEF2NH	 5N0512011BS	1	1	 15.05.2017 14:01:15
	2017050000000	 AHEF2NI	 5N0512011BS	1	1	 15.05.2017 14:01:15