Function GetData2(strPath As String, strField1 As String, strOperator1 As String, strCriterion1 As String, strField2 As String, strOperator2 As String, strCriterion2 As String, strOperator4 As String, strCriterion4 As String, strField3 As String, strOperator3 As String, strCriterion3 As String, strOperator5 As String, strCriterion5 As String, strField4 As String) As Integer

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Dim strSQL2 As String
    
    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
      strSQL2 = "SELECT Sum([" & strField4 & "]) FROM [Ëèñò3$A3:L65000] " & "WHERE [" _
        & strField1 & "]" & strOperator1 & " '" & strCriterion1 & "' and [" _
        & strField2 & "]" & strOperator2 & " " & strCriterion2 & " and [" _
        & strField3 & "]" & strOperator3 & " " & strCriterion3 & " and [" _
        & strField2 & "]" & strOperator4 & " " & strCriterion4 & " and [" _
        & strField3 & "]" & strOperator5 & " " & strCriterion5 & " "
    rst.Open strSQL2, cnn
    
    GetData2 = rst.Fields( 0 )
    rst.Close
    cnn.Close

    Set rst = Nothing
    Set cnn = Nothing
End Function

Sub test2()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    Dim strSQL2 As String
    
    Dim strCriterion1 As String
    Dim strCriterion2 As String
    Dim strCriterion3 As String
    Dim strCriterion4 As String
    Dim strCriterion5 As String
    
    Dim strField1 As String
    Dim strField2 As String
    Dim strField3 As String
    Dim strField4 As String
    
    Dim strRange As String
    Dim strPath As String
    
    Dim strOperator1 As String
    Dim strOperator2 As String
    Dim strOperator3 As String
    Dim strOperator4 As String
    Dim strOperator5 As String
    
    Dim x2 As Integer
    
    strOperator1 = "="
    strOperator2 = ">="
    strOperator3 = ">="
    strOperator4 = "<"
    strOperator5 = "<"
    
    strField1 = "segment вид UNIQA"
    strField2 = "Дата настання страхового випадку"
    strField3 = "Дата реєстрацiї страхового випадку"
    strField4 = "Резерв RBNS на кiнець перiоду"
    
    
    strPath = "C:\Gorokh\Report\Êíèãà4.xlsm"

    'strCriterion1 = "Casco"
   ' strCriterion2 = #3/5/2009#
   ' strCriterion3 = #1/2/2010#

    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
    
       
           strSQL2 = "SELECT Sum([" & strField4 & "]) FROM [Ëèñò3$A3:L65000] " & "WHERE [" _
        & strField1 & "]" & strOperator1 & "'Casco' and [" _
        & strField2 & "]" & strOperator2 & " #1/1/2009# and [" _
        & strField3 & "]" & strOperator3 & " #1/1/2010# and [" _
        & strField2 & "]" & strOperator4 & " #1/1/2010# and [" _
        & strField3 & "]" & strOperator5 & " #1/1/2011#"
         
         
   
    rst.Open strSQL2, cnn
    x2 = rst.Fields( 0 )
    
    Debug.Print strSQL2
    Debug.Print x2
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    
End Sub

Function GetData2(strPath As String, strField1 As String, strOperator1 As String, strCriterion1 As String, strField2 As String, strOperator2 As String, strCriterion2 As String, strOperator4 As String, strCriterion4 As String, strField3 As String, strOperator3 As String, strCriterion3 As String, strOperator5 As String, strCriterion5 As String, [color=orange]strField4 As String[/color]) As Integer

SELECT Sum([Резерв RBNS на кінець періоду]) FROM [Книга3$A3:L65000] WHERE [segment вид UNIQA]='Casco' and [Дата настання страхового випадку]>= #1/1/2009# and [Дата реєстрації страхового випадку]>= #1/1/2010# and [Дата настання страхового випадку]< #1/1/2010# and [Дата реєстрації страхового випадку]< #1/1/2011#
  16778  

& strField2 & "]" & strOperator4 & " " & strCriterion4 & "and [" _