[VBA] Requete sql en vba

Bonjour,
J'ai un petit problème avec le code suivant qui me renvoie faux a chaque fois que soit les données envoyées :

Public Function estservco(ByVal user As String, serveur As String) As Boolean

Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like 'user') AND ((t_conserv.poste) Like 'serveur'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function

En fait je suis un peu nul en VBA et j'ai besoin de savoir si il y a une ou zero ligne dans ma table sans date de fin pour un utilisateur et un poste donné.

Merci d'avance :)