strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=""Excel 12.0 Macro;HDR=" & _
IIf(Headers, "Yes", "No") & """"

strConnection = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=" & ThisWorkbook.FullName & ";"

SELECT count(*) as q FROM [myLIST$A:H]" 

SELECT count(*) as q FROM [myLIST$A1:H100000]"