Allora prova a dichiarare sia funzione che recordset come AdoDB.RecordSet

Al limite puoi passare un Recordset come altro parametro alla funzione e valurizzare questo in uscita.