[RESOLVED] Concatenating in a loop

[CVDpr]

I loop the recordset and add "," between the numbers.

Dim sn As String

rsTemp.MoveFirst
While Not rsTemp.EOF
    sn = sn + "," + Format$(rsTemp("SampleNumber"))       
    rsTemp.MoveNext
Wend

This = ",123,456,789" and then i do this to remove the first ","

Dim snF As String

snF = "'" & Mid$(sn, 2, Len(sn)) & "'"

This = "123,456,789".

Is there a better way to add the "," between the numbers in the loop so i dont have to use the Mid$? or what i have is ok?