Dim connectionString As String ' Used to store the connection string
Dim customerList As New DataSet ' Used to store the temp records readed from the Excel file
Dim excelData As OleDb.OleDbDataAdapter
connectionString = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties=""Excel 12.0;HDR=YES"";", fileName)
excelData = New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", connectionString)
excelData.TableMappings.Add("Sheet1", "ImportCustomer")
excelData.Fill(customerList)