while not Rs.Eof
   for each Field in Rs.Fields
          response.write Field.value
      next
      Rs.moveNext
Wend
------------------------------------------------
usually, we use some code like above to process data.
well, if i know only one Field exists in each Record, then blue code will be reluctant. how to improve this?
for example. strSQL="show tables"
Rs strSQL conn.....

Hello,

  If only one field is there,
  Why to use loop. You can use the field name know!

while not rs.eof
response.write rs("fieldname")
  rs.movenext
wend

if you dont know the fieldname, then you can minimize the processing time using...
  find fieldcount and do looping if the fieldcount is > 1