[Resolvido]Colocar uma inputbox num critério da dsum

Boas, mais uma vez a solicitar a preciosa ajuda...

Coloquei o codigo abaixo no detalhe de um formulário, para que me devolva o somatório do campo "valor", constante da consulta "MovimentosBancários", para todos os registos em que se verifique que o campo "Banco" dessa consulta seja igual a "Montepio" e que o campo "Mes", seja igual ao mês indicado pelo utilizador.

Option Compare Database
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim a As String
Dim b As Currency
a = InputBox("Qual o mês?")
b = DSum("valor", "MovimentosBancarios", "Banco='Montepio' and Mes=a")
Texto0 = b
End Sub

Na execução aparece-me run-time 2001.

O que é que fiz de mal?

Obrigado

Ernesto

Verifique essa linha:

b = DSum("valor", "MovimentosBancarios", "Banco='Montepio' and Mes=" & a)

a= é uma variável tem que ficar fora das aspas

Abraços

Valeu, muito obrigado

Valeu pelo retorno

Boa sorte!!