Balayage d'une table sous Access en vba

Bonjour, j'aimerais avoir la possibilité de balayer les enregistrements d'une table(T_produit_projet) grâce à un code(vba) pour pouvoir faire différentes action tant que ma table n'est pas au dernier enregistrement
Problème lorsque j'arrive au "Set rec =..." un message d'erreur aparait "Icompatibilité de type"
Pouvez vous me dire svp ce qu'il ne vas pas dans ce code?

Option Compare Database

Function balayage()

Dim bdc As Database
Dim rec As Recordset

Set bdc = CurrentDb

Set rec = bdc.OpenRecordset("T_produit_projet")

rec.MoveFirst

Do While rec.EOF = False
...
Loop
End Function