Problème avec RecodCount en VB

Salut ! Dans mon programme, j'aimerai obtenir le nombre de résultat obtenu aprés avoir effectué une recherche. J'utilise un controle Data pour ma base de données.
Voici le code source :
[i]Private Sub okrech3_Click(Index As Integer)
Datares.RecordSource = "SELECT * FROM identification WHERE SERVICE = '" & comboservice.Text & "';"
Datares.Refresh
nbrtxt.Text = "Enregistrement " & Str(Datares.Recordset.AbsolutePosition) & " sur " & Str(Datares.Recordset.RecordCount)
End Sub[/i]
Le problème, c'est que quand je veux afficher le nombre de résultat avec Datares.Recordset.Recordcount, il m'affiche toujours 1 comme réponse .
Est-ce que quelqu'un a une idée du problème ??
Merci!