Bueno, como el refrán dice
el que busca encuenta.
es que encontré la solución , y se las paso por si les sirve
rs.Open sqltext,con
Response.Write("<TABLE border=""1"">")
Response.Write("<TR>")
for each campo in rs.fields
response.write("<td><b>" & campo.name & "</b></td>")
next
Response.Write("</TR>")
miTabla = rs.GetRows
rs.close
set rs=nothing
con.Close
set con = nothing
ya ta