Alguem pode me dizer porque esta linha de código não dá certo:
DataDe = Format(DI, "'yyyy/mm/dd'")
DataAte = Format(DF, "'yyyy/mm/dd'")
PlacaVeiculo = Format(Nome, "'AAA####'")
adoCalcDiaria.RecordSource = "select sum(Valor_Diaria) AS CalcDiaria, sum(Valor_Despesa) AS CalcDespesas from tbldiarias_ta where Placa " & " = " & PlacaVeiculo & " and Data_Diaria between " & DataDe & " and " & DataAte
adoCalcDiaria.Refresh
Esta linha abaixo esta funcionado, quando eu coloco a placa diretamente no código. Seria a forma que estou passando o parametro.
adoCalcDiaria.RecordSource = "select sum(Valor_Diaria) AS CalcDiaria, sum(Valor_Despesa) AS CalcDespesas from tbldiarias_ta where Placa=" & "'AFC0649'" & " and Data_Diaria between " & DataDe & " and " & DataAte
adoCalcDiaria.Refresh