[VBA] Passage de parametre (recordset)

[Orel]

bonjour a tous !

j'ai un probleme de passage de parametre sur VBA XL97.

je m'explique :
j'ai une fonction :

Function DoRequete(ByVal myReq As String)
Dim myQuery As QueryDef
Dim rs As Recordset

Set myQuery = ModData.myDB.CreateQueryDef("", myReq )
Set rs = myQuery.OpenRecordset(dbOpenDynaset)

Set DoRequete = rs

End Function

que j'apel de la sorte :

set myRS = DoRequete("SELECT *.....")
//ma requete est valide j'en suis sur ...

cette fonction me retourne un recordset valide // ca c'est sur aussi !


puis je voudrai passé en parametre myRS a une autre fonction :
Function GenererTableau(ByVal myRS As Recordset)

GenererTableau (myRS)

mais voila j'ai un placard qui dit :
ERREUR D'EXECUTION 13
TYPE INCOMPATIBLE ...

ma question est clair mon ecriture est elle bonne ??
peu t on passer un recordset en parametre a une fonction ?

merci a vous

orel