Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String, sSql As String
Set cn = New ADODB.Connection:  Set rs = New ADODB.Recordset
With ThisWorkbook
    'конструкция строки подключения к сохраненному файлу Excel
     'конструкция строки подключения к сохраненному файлу Excel
    sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + .Path _
    + "\" + .Name + ";Extended Properties=""Excel 8.0;HDR=Yes"";"
    'конструкция запроса на выборку с группировкой
    sSql = "SELECT t1.f0, t1.f1, t1.f2, t1.f3, count(t1.f0) as g4  FROM "
    sSql = sSql + "[Лист1$A9:K100] as T1 WHERE f5 Is Null and f0 Is not Null "
    sSql = sSql + " GROUP BY f0, f1, f2, f3 "
   ' On Error Resume Next  
    'подключение
    cn.Open sCon

sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + .Path _
    + "\" + .Name + ";Extended Properties='Excel 12.0 Macro;HDR=Yes'"";"