Dim xl As New Microsoft.Office.Interop.Excel.Application
        Try
            xl.Workbooks.Open("C:\111.xls")
            For Each sheet As Microsoft.Office.Interop.Excel.Worksheet In xl.Worksheets
                'add sheet names to a listbox so user can select
                ListBox1.Items.Add(sheet.Name)
...

       
...
        Dim excelFile As String = "C:\SV_QC.xls"
        Dim excelSheet As String = "[SV_Quality_report$]"
        Dim sql As String = "SELECT * FROM " & excelSheet
        'Dim tableName As String = "theNameYouLike"

        Try
            Dim ExcelConnect As New OleDb.OleDbConnection

            ExcelConnect.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
            "data source=" & excelFile & ";" & _
            "Extended Properties=""Excel 8.0;HDR=YES"""

            'Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, ExcelConnect)
            ExcelConnect.Open()
....