Função contar

Boa tarde.Tenho um programa que devido a problemas tecnicos, perdi ele, e tive começar da estaca zero.

Possuo uma tabela (Tab_Membro) no qual foi gerado uma consulta csconsultamembro. Necessito realizar alguns calculo. Alguns destes calculos funcionou perfeitsmente, porém outro (se não engano foram 2) que não estão calculando, como desejo.

txt_regtotal, funcionou perfeitamente (Me.Txt_RegTotal = DCount("Id_CodMbo", "csConsultamembro")
txt_regativos, funcionou perfeitamente (Me.Txt_RegAtivos = DCount("Id_CodMbo", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
txt_percdzta, funcionou perfeitamente (Me.Txt_PercDzta = Me.Txt_DiztaAtv / Me.Txt_RegDza)
txt_regdza, funcionou perfeitamente (Me.Txt_RegDza = DCount("", "csConsultamembro", "[Id_MboDizta]"))
txt_diztaatv, não funcionou (Me.Txt_DiztaAtv = DCount("*", "csConsultamembro", "[Id_MboDizta]= 'sim', [Id_StatusMbo]='Ativo'")

Obs: no campo txt_diztaatv vai procurar na consulta (csConsultaMembro), os código que seja dizimista e esteja ativo
Id_StatusMbo ( recebe ativo ou inativo);
Id_MboDizta ( sim/não)

code]
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Me.Id_DtNascMbo = Empty
Me.Txt_RegTotal = DCount("Id_CodMbo", "csConsultamembro")
Me.Txt_RegAtivos = DCount("Id_CodMbo", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
'Me.Txt_Ativos = DCount("*", "csConsultaMembro", "[Id_StatusMbo] = 'Ativo'")
'Me.Txt_RegDza = DCount("Id_CodMbo", "csConsultaMembro", "[Id_MboDizta]='verdadeiro'")
Me.Txt_RegDza = DCount("", "csConsultamembro", "[Id_MboDizta]")
'Me.Txt_DiztaAtv = DCount("*", "csConsultamembro", "[Id_MboDizta]= 'sim', [Id_StatusMbo]='Ativo'")
'Me.Txt_DiztaAtv = DCount("Id_CodMbo", "csConsultamembro", "[Id_MboDizta], [Id_StatusMbo]='Ativo'")
'Me.Txt_DztaAtivo = DCount("*", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
Me.Txt_PercReg = Me.Txt_RegAtivos / Me.Txt_RegTotal
Me.Txt_PercDzta = Me.Txt_DiztaAtv / Me.Txt_RegDza
End Sub
[/code]