[Resolvido]RecordCount que não conta...

Caros colegas, fiz a busca no repositório por RecordCount e nada achei!
Por que o DCount funciona e o RecordCount não?
Pois:
Na reposta do primeiro MSGBOX aparece 1, o que está errado.
Na resposta do segundo MSGBOX aparece 4, o que está correto.


Private Sub FECHAR_Click()
Dim dbbanco As Database
Dim rs As DAO.Recordset

Set dbbanco = CurrentDb()
Set rs = dbbanco.OpenRecordset("SELECT * FROM [socios] WHERE ativo=" & 0)

MsgBox "Eles são um total de:" & vbCrLf & vbCrLf & rs.RecordCount, vbInformation, "Atenção"
MsgBox DCount("*", "socios", "ativo=" & 0)
End Sub

Agradeço desde já!
MPS

Faz um teste incluindo as linhas abaixo, antes do MsgBox():

rs.MoveLast
rs.MoveFirst

Cláudio, mandou muito!
Parabéns e obrigado!

Valeu MPS, de nada.