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'"";" 

On Error Resume Next
With WorksheetFunction
  listbox2.Selected(.Match(TextBox1.Text & "*", .Transpose([""&tab_nomer1]), 0)) = True
  End With

Sub Del_SubStr()
    Dim sSubStr As String 'искомое слово или фраза(может быть указанием на ячейку)
    Dim lCol As Long 'номер столбца с просматриваемыми значениями
    Dim lLastRow As Long, li As Long
    Dim lMet As Long
 
    sSubStr = InputBox("Укажите значение, которое необходимо найти в строке", "Запрос параметра", "")
    If sSubStr = "" Then lMet = 0 Else lMet = 1
    lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1))
    If lCol = 0 Then Exit Sub
 
    lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
 
    Application.ScreenUpdating = 0
    For li = lLastRow To 1 Step -1
        If InStr(Cells(li, lCol), sSubStr) = lMet Then Rows(li).Delete
    Next li
    Application.ScreenUpdating = 1
End Sub

Iqorod=UserForm1.ComboBox1.Text
strPosition = " WHERE qorod  LIKE IQOROD "
strSQL = "SELECT * FROM [List1]" & strPosition