linie skift i Loop

Hej Eksperter

Jeg skal fylde en mailbody ved hjælp at et Loop, hver Row i db skal adskilles af et linieskift - PÅ NÆR AF DEN SIDSTE ROW.

Min kode ser således ud:

do until Rs.EOF

mailbody = mailbody & rs("data")& "|"
mailbody = mailbody & vbLf

rs.movenext
Loop

- Her kommer der et vbLf for meget med

Har i en fiks idé til forhindre dette :-)
Hej