[cloayza]

Haber si esto te ayuda...

Código Delphi [-]
Sub Contar_Datos()

    Dim cn As Object
    Dim rs As Object
    Dim strSQL  As String
    Dim strCon As String
    Dim strFile As String
    Dim strFromDate, strToDate As String

    strFile = "C:\Users\Desktop\Base.accdb"
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile
    
    strFromDate = InputBox("Desde (mm/dd/yyyy)?", "Rango Fecha")
    strToDate = InputBox("Hasta (mm/dd/yyyy)?", "Rango Fecha")
    
    strSQL = "Select estado, count(Estado) from Consulta where Fechas between #" & strFromDate & "# And #" & strToDate & "#" & _
             " and (Consulta.estado ='DEVOLUCION' or Consulta.Estado='DONACION')" & _
             " group by estado"

    Set cn = CreateObject("ADODB.Connection")
   
    cn.Open strCon

    Set rs = CreateObject("ADODB.RECORDSET")
    rs.activeconnection = cn
    rs.Open strSQL
    
    Hoja1.Range("A1").CopyFromRecordset rs

    rs.Close
    cn.Close
    Set cn = Nothing
           
End Sub