Recordset Loop Display without extra Spaces

[CT Witter]

I'm using general recordset loop but am looking for some ideas on how to eliminate the final CR&LF.

Is there a good way to do this?

Below is the outline of my code

Do Until rst.EOF
      strOutput = strOutput & rst.Fields("Notes").Value & vbCrLf
      rst.MoveNext
      Loop

So for 2 Records I get
*BOF*
Record1
Record2
[BLANK]
*EOF*
Thanks,
CT [/code]

 

[Norie]

Try losing the last character after the loop.

strOutput = Left(strOutput, Len(strOutput)-1)

 

[CT Witter]

Thanks, worked great!