Hola Roberbati, el envio de correos se hace si no me equivoco con la direccion de correo, una coma, espacio y otra direccion de correo, ej:
[email protected],
[email protected].
te recomiendo que hagas un While (Not objRS.eof) y vayas almacenando todos los correos a los que quieras enviar un mensaje, asi:
While (Not objRS.eof)
Email= Email & ", "& objRS.("Email") 'ojo con el primero o con el ultimo, depende de como lo hagas.
objRS.MoveNext
wend
Lo puedes enviar como quieras ya sea en el listado primario, como copia o como copia oculta y llamas al mail.send una sola vez.
prueba, espero te funcione.