Compter le nombre de lignes d'un résultat de requête

Bonjour,

J'essaie de coder en VBA sous access 2007 une macro qui me permettrait de compter le nombre de lignes d'un résultat de requête.

Je possède un tableau ou j'extrais les informations voulues grâce à une requête et je l'affiche.
Ce que je n'arrive pas c'est de créer un MsgBox qui m'affiche le nombre de lignes.


RecapChantierEffectue : c'est le nom de ma requête me permettant d'afficher les informations voulues

Voici mon code qui s'éxécute suite à un click:

Private Sub Commande0_Click()


Dim cpt As Integer


'Execution de la requête
'DoCmd.OpenQuery "Queryname" ,acReadOnly pour autoriser l'utilisateur à visionner uniquement
DoCmd.OpenQuery "RecapChantierEffectue", acReadOnly

DCount (RecapChantierEffectue)
cpt = DCount

MsgBox ("vous avez effectué au total " &cpt "chantiers")


End Sub


Le Dcount ne fonctionne pas!Please help me!