Sub test2()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Dim strSQL As String

    Dim strCriterion1 As String
    Dim strCriterion2 As Integer
 
    Dim strField1 As String
    Dim strField2 As String
    Dim strRange As String
    Dim strPath As String
    
    Dim strOperator1 As String
    Dim strOperator2 As String


    Dim x1 As Integer
    '--------------------------------------------------------------------------------------------------'
    strOperator1 = "="
    strOperator2 = ">"

    strField1 = "Счет А"
    strField2 = "Сумма"
   
    
    strCriterion1 = "29096010605907"
    strCriterion2 = 120
    
    strPath = "C:\Documents and Settings\vgorokh\Рабочий стол\АВАНС\Взаиморасчет.xls"
    strRange = "" 
    
    Dim strConnectionString As String
    strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
    cnn.Open strConnectionString
   
        
        strSQL = "SELECT Sum([" & strField2 & "]) FROM [распределено$A1:h15000] " & _
                "WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 _
                & "' and [" & strField2 & "]" & strOperator2 & "'" & strCriterion2 & "'"

      Debug.Print strSQL
      
    rst.Open strSQL, cnn
    
    
    x1 = rst.Fields(0)
    
    Debug.Print strSQL
    Debug.Print x1
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    
End Sub

        strSQL = "SELECT Sum([" & strField2 & "]) FROM [распределено$A1:h15000] " & _
                "WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 _
                & "' and [" & strField2 & "]" & strOperator2 & "" & strCriterion2 & ""