[RESOLVED] Concatenating in a loop

[tropix100]

This may be more appropriate........

Dim sn As String

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

sn = format(sn, "##,##")