I loop the recordset and add "," between the numbers. Dim sn, cdm As StringrsTemp.MoveFirstWhile Not rsTemp.EOF sn = sn + "," + Format$(rsTemp("SampleNumber")) cdm = cdm + "," + Format$(rsTemp("CdmId")) rsTemp.MoveNextWendThis = ",123,456,789" and then i do this to remove the first ","Dim snF,cdmF As StringsnF = "'" & Mid$(sn, 2, Len(sn)) & "'"cdmF = "'" & Mid$(cdm, 2, Len(cdm)) & "'"
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?