Probleme variable Recordset

Voila j'ai un petit souci avec une variable recordset, voici un extrait de mon code :

Code:

---

1 2 3 4 5

Set db=opendatabase("foot.mdb") Set Req1 = db.OpenRecordset("select Points from Joueurs Where NomJoueur='" & Gardien.Text & "'") Points1 = CInt(Req1) MsgBox (Points1)

---

Et il me met en message d'erreur "Type incompatible" sur le "CInt(Req1)", donc si quelqu'un pouvais m'eclairer sur mon erreure ca serait sympas;)

Code:

---

Points1 = CInt(Req1!Points)

---