somando via sql

Bom dia,

 

Estou tentando construir um código que faça o somatório de uma coluna especifica de uma tabela de acordo com uma data selecionada em uma caixa de combinação, contruir o seguinte código abaixo porem é apresentado a seguinte mensagem de erro ‘’Erro em tempo de execução ‘364’:Tipo de dados incompatível  na expressão de critério. Já tentei vários ajustes porem ainda não consegui, segue o código abaixo.

 

Private Sub Comb_data_arquivo_AfterUpdate()

Dim sql As String

Dim rs As Recordset

 

 

        sql = "SELECT tbl_relatorio_pas_mensal.[Data Arquivo],  Sum(tbl_relatorio_pas_mensal.[Vl Aux]) AS [SomaDeVl Aux]" & _

        " FROM tbl_relatorio_pas_mensal" & _

        " GROUP BY tbl_relatorio_pas_mensal.[Data Arquivo]" & _

        " HAVING (((tbl_relatorio_pas_mensal.[Data Arquivo]) = '" & Forms!frm_resumo!Comb_data_arquivo & "'));"

   

        Set rs = CurrentDb.OpenRecordset(sql)

    Txt_valor_total_periodo = rs.Fields("[SomaDeVl Aux]")

   

 

End Sub

Boa tarde,
Será
sql = "SELECT [Data Arquivo], Sum([Vl Aux]) AS [SomaDeVl Aux]" & _
" FROM tbl_relatorio_pas_mensal" & _
" GROUP BY [Data Arquivo]" & _
" HAVING [Data Arquivo] = #" & Forms!frm_resumo!Comb_data_arquivo & "#;"

Com tal código agora apresenta a seguinte mensagem de erro ‘’ erro em tempo de execução ‘2147352567(80020009) O valor que você inseriu não é valido para este campo.

 

Segue abaixo codigo alterado

 

 

Private Sub Comb_data_arquivo_AfterUpdate()

Dim sql As String

Dim rs As Recordset

 

   

        sql = "SELECT [Data Arquivo], Sum([Vl Aux]) AS [SomaDeVl Aux]" & _

        " FROM tbl_relatorio_pas_mensal" & _

        " GROUP BY [Data Arquivo]" & _

        " HAVING [Data Arquivo] = #" & Forms!frm_resumo!Comb_data_arquivo & "#;"

 

                         

        Set rs = CurrentDb.OpenRecordset(sql)

    Txt_valor_total_periodo = rs.Fields("[SomaDeVl Aux]")

 

End Sub

Reveja o valor da variável e o tipo de dados

Fiz algumas mudanças mas o erro ainda persiste

fiz varias mudanças porem ainda possuo o mesmo problema segue em anexo o banco de dados em questão onde a falha ocorre.