Visual Basic 6 - MailingList : concatenare stringhe da un campo db

Salve a tutti
ho un piccolo problemino :ho un applicativo creato con Ms. Access

nel campo:e-mail

vorrei che con la pressione di un pulsante esempio: (command1_click)

le-mail da me selezionate andassero tutte dentro ad una textbox, concatenate una con l'altra e magari separate con ; cosi posso spedirle tutte tramite programma di posta



Oppure inserire in una textbox il risultato della query

Grazie Mille



soluzione trovata:

Dim rs As DAO.Recordset
Dim db As Database

Dim strname As String

Set rs = CurrentDb.OpenRecordset("SELECT T_Clienti.[e-mail], T_Clienti.selezionaEMail FROM T_Clienti WHERE (((T_Clienti.selezionaEMail)=True));"


Do While Not rs.EOF

strname = (strname + ";" & rs.Fields("e-mail"
rs.MoveNext

Loop


MailingList = strname
MailingList = Right(strname, Len(strname) - 1)