Private Sub Command2_Click()
    Dim fname As String
    fname = GetExcelFileName(Me.Hwnd)
    If fname = "" Then Exit Sub
    
    Dim Cnn As ADODB.Connection
    Dim rS As ADODB.Recordset
    
    Set Cnn = New ADODB.Connection
    Set rS = New ADODB.Recordset
    
    Cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & fname & ";ReadOnly=1"
    rS.Open "SELECT * FROM [1$];", Cnn, adOpenStatic, adLockReadOnly

 '   blablabla 

    rS.Close
    Cnn.Close
End Sub

    Dim myOlApp As Object
    Dim MyWo As Excel.Workbook
    Dim mysheet As Excel.Worksheet
    Set myOlApp = CreateObject("excel.Application")
    Set MyWo = myOlApp.Workbooks.Open(fname)
    For Each mysheet In MyWo.Worksheets
        Debug.Print mysheet.Name
    Next mysheet

...
    Cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & fname & ";ReadOnly=1"
    
    Set rS = Cnn.OpenSchema(adSchemaTables)

    Do While Not rS.EOF
        Debug.Print rS("TABLE_NAME")
        rS.MoveNext
    Loop

    rS.Close
...

...
    Cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & fname & ";ReadOnly=1"
    
    Dim tn As String
    Set rS = Cnn.OpenSchema(adSchemaTables)
    Do While Not rS.EOF
        tn = rS("TABLE_NAME")
        If Left(tn,  1 ) = "'" Then tn = Mid(tn,  2 )
        If Len(tn) < InStr( 1 , tn, "$") +  2  Then
            tn = Left(tn, InStr( 1 , tn, "$"))
            Debug.Print tn
        End If
        rS.MoveNext
    Loop
    rS.Close
...