How to create a function to output Any recordset into JSON format?

I have solved The first question by pass the query string instead of the recordset.

now how can I get the fieldnames and the datatypes form "ANY" result dataset?NOT from a table.