Function til at håndtere database connection.

Jeg troede jeg kunne lave noget smart.
Noget i retning af
function exe_sql_res(str)

    Set result=server.CreateObject("ADODB.Recordset")
    result.cursorType=adOpenKeyset
    Set result.ActiveConnection = Conn
   
    on error resume next
        result.open str
        return result   
    If Err.number<> 0 then
        showError(Err)
    End If

end function

men det funker ikke. Jeg får en fejl der siger
object required når jeg forsøger at gennemløbe det result set jeg skulle få tilbage fra funktionen.

Hvordan kan det gøres ?