When you want a function to return something, you must assign that something to the function name.
Change the last part of your QueryResults
function to this:
'Set rsResults = CurrentDb.OpenRecordset(stQuery)
Set QueryResults = CurrentDb.OpenRecordset(stQuery)
End Function