RecordSet to tab-separated values
Function TSV(rs) Dim field For Each field In rs.Fields TSV = TSV & field.Name & VBTab Next TSV = Left(TSV, Len(TSV) - 1) & vbCr & rs.GetString() End Function
The rows are separated by vbCr ("\r" in most languages).
The first row is the field names.