Soma de valores com critério data inicial e data final

[alexdias]

Boa tarde feras...
Toh com uma dificuldade aqui, se puderem ajudar, ficarei grato.
preciso fazer uma consulta em um BDAccess através do Excel, que faça a soma da colula VALOR com critério data inicial e data final na coluna DATA na tabela, meu procedimento ficou assim, mas retorna sempre zero...

Código: Selecionar todos

Sub mes()

Dim MyDate, MyMonth, MyYear
MyDate = Date
MyYear = Year(MyDate)
MyMonth = Month(MyDate)

Dim consulta_jan1 As Date
Dim consulta_jan2 As Date
consulta_jan1 = "01/01/" & MyYear
consulta_jan2 = "31/01/" & MyYear

Dim Data1 As Long
Dim Data2 As Long
Data1 = VBA.CLng(VBA.CDate(consulta_jan1))
Data2 = VBA.CLng(VBA.CDate(consulta_jan2))

Dim jan As Long

    ConnectDB
    
    Rs.Open "select SUM(VALOR) as jan from Tb_lancamentos Where DATA between " & Data1 & " and " & Data2 & "", Db, 3, 3
    
    MsgBox jan
    
    FechaDB

End Sub

[webmaster]

alexdias,

No caso do access, filtros de data precisam estar entre #:

Código: Selecionar todos

Rs.Open "select SUM(VALOR) as jan from Tb_lancamentos Where DATA between #" & Data1 & "# and #" & Data2 & "#", Db, 3, 3

Atente para o formato da data já que o VBA trabalha com padrão americano (MM/DD/YYYY).

Mais aqui: https://support.microsoft.com/pt-br/off ... c961f21762