http://snippets.dzone.com/posts Sun, 27 Jul 2008 02:59:35 GMT DZone Snippets: resultset code http://snippets.dzone.com/posts/show/3644 <code> <br />Function TSV(rs) <br /> Dim field <br /> For Each field In rs.Fields <br /> TSV = TSV & field.Name & VBTab <br /> Next <br /> TSV = Left(TSV, Len(TSV) - 1) & vbCr & rs.GetString() <br />End Function <br /></code> <br /> <br />The rows are separated by vbCr ("\r" in most languages). <br />The first row is the field names. Wed, 07 Mar 2007 21:51:49 GMT http://snippets.dzone.com/posts/show/3644 mrclay (Steve Clay)