store results into an array

[jasonhuibers]

How can I take all the email address and store them into a variable seperated by a comma?

IE: jason@yahoo.com, julie@yahoo.com

do while not drs.eof
strEmailArray = drs("EmailAddress")
drs.MoveNext

 

[guitarzan]

Your question is a little unclear (to me anyway), is this what you are looking for?

do while not drs.eof
   strEmailArray = strEmailArray & drs("EmailAddress") & ","
   drs.MoveNext
Loop

'get rid of the last comma
If Right(strEmailArray, 1) = "," Then
   strEmailArray = Left(strEmailArray, Len(strEmailArray) - 1)
End If

But that's not really an array...