loop spørgsmål

Jeg har denne kode:

Do
    strBogstav = strBogstav & ObjRS("ID") & ","
ObjRS.Movenext
  Loop While Not ObjRS.EOF

Det den gør at hente nogle tal frem af en database og herefter indsætter et komma, mit problem er: hvordan får jeg den til IKKE at indsætte et komma til sidst.
Som det er nu vil resultatet se ud som følger:
1,4,56,78,

M.V.H.
  Kroger