DAO.Recordset übergeben

Ich hätte gern gewusst, ob es möglich ist ein DAO.Recordset aus einer Function zu übergeben. Etwa so hab ichs probiert:

Function test() As DAO.Recordset
Dim rs as DAO.Recordset

:
:
set test = rs
rs.Close
Set rs = Nothing
End Function

Sub aufruf()
Dim mrs as DAO.Recordset

set mrs = test
End Sub

Hat aber leider nicht funktioniert. Das Recordset in der Funktion war gefüllt, aber in der aufrufenden Routine kam nix an.

Vielen Dank für eventuelle Hilfe

LarsLarsen