Laurent M wrote:
the error comes from the return.


Try

Set ImportFromdb = Rst

You could also change the declaration to

Function ImportFromdb(Query As String) As ADODB.Recordset
Jamie.

--