Recordset

[gefuva]

'Creas el RS
dim MiRec as new adodb.recordset
dim var as string

var=""

'Abres el RS
MiRec.Open "SELECT email FROM tabla", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

MiRec.MoveFirst

'Lo haces hasta menos 2, para q asi no te ponga un ; al final, o tb puedes hacer el bucle hasta menos 1 y quitarselo tu después

for i=0 to MiRec.RecordCount-2
var=var & MiRec!email & ";"
MiRec.MoveNext
next
'Cuando salga estara en RecordCount-1
var=var & MiRec!email

MiRec.Close

'var ahora tiene la lista de mails

Espero te ayude