pb code vb - pq ca bug

coucou a tous,
alors j ai cree une bd sous access 2000, le formulaire de saisie aussi,
le probleme est que je dois creer un code vb qui me permet qd je tape ses coordonee nom/prenom/code postal (dans le formulaire) ca doit me renvoyer son numero de client ou sinon lui en creer un s il existe pas.
mon code vb semble juste mais il ne fonctionne pas, la ligne
Intx=dcount.... est surlignée en jaune.

Private Sub num_client_Click()
Dim i As Integer
Dim rst As Recordset
Dim Intx As Integer

Intx = DCount("*", "CLIENT", " nom = " & zonenom.Value & " And prenom = " & zoneprenom.Value & " And code_postal = " & zonecode_postal.Value & " ")

If Intx > 0 Then

Set rst = CurrentDb.Openrecordset("SELECT num_client FROM CLIENT WHERE nom = " & zonenom.Value & " And prenom = " & zoneprenom.Value & " And code_postal = " & zonecode_postal.Value & " ")

Else
i = 1 + Intx
DoCmd.RunSQL "INSERT INTO CLIENT ([num_client])VALUES('" & i & "');"
End If
End Sub

ou est mon erreur?????
merci pour votre aide