إقتباس :Using ofd As OpenFileDialog = New OpenFileDialog() With {.Filter = "Excel Workook|*.xlsx|Excel 97-2003 WorkBook|*.xls"}
            If ofd.ShowDialog = DialogResult.OK Then
                TextBox1.Text = ofd.FileName
                Using stream = File.Open(ofd.FileName, FileMode.Open, FileAccess.Read)
                    Using reader As IExcelDataReader = ExcelReaderFactory.CreateReader(stream)
                        Dim result As DataSet = reader.AsDataSet(New ExcelDataSetConfiguration() With {
    .ConfigureDataTable = Function(__) New ExcelDataTableConfiguration() With {
    .UseHeaderRow = True}})
                        tables = result.Tables
                        ComboBox1.Items.Clear()
                        For Each table As DataTable In tables
                            ComboBox1.Items.Add(table.TableName)