[Resolvido]contar registo do mes x

Boa noite,
Solicito a vossa ajuda.
Estou tentando contar todos registos, do mês x, do ano x, não estou tendo sucesso. Até onde tentei só me retorna um registo quando selecciono o mês.

Private Sub cboMes_AfterUpdate()
Dim rs As Recordset
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cst_ContarRegisto WHERE Mes=" & Forms!Frm_ContarRegisto!CboMes & " and Ano=" & Forms!Frm_ContarRegisto!cboAno & "")
txtTotal = rs.RecordCount
rs.Close
Set rs = Nothing
End Sub

desde já agradeço a vossa ajuda.

Oi Mary!

No banco de dados que você enviou, não consigo encontrar o cboMes que você está se referindo, gostaria ter aquele formulário que tem o combobox

Saludos

minha sinceras desculpas, enviei parte do bd errado. segue o correcto.

desde já grato.

up

Veja se isso resolve.

boa tarde,
peço desculpa pela demora amigo fabiogo e agradeço pela tua grande ajuda prestada.
após o teste efectuado, está a funcionar parcialmente, pois ao seleccionar o mês de Julho do ano 2018 não deviria contar porque não existe registos deste ano. e por outra quando existir registo do mesmo mês e ano diferente tem que contar separados/distinguir ou seja por exemplo: registos do mês de julho do ano 2017 total 3; registo do mês de julho do ano 2018 total 2. é possível?

desde já agradeço ajuda de todos.

Fiz da forma mais rápida possível devido a falta de tempo, mas pode-se usar outros métodos.
Agora faz o que você quer.

grato.