Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    With rst
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
    End With
           
    cnn = ThisWorkbook.Connections
   
    set rst = cnn.execute ("Select * FROM [таблица$]"), 
    
cnn.Close
    Set rst = Nothing