dim db as DAO.Database
dim rs as DAO.Database
dim strtabname as string
dim strrecipients as string
tabname = "YourAddiesTable"
set db = Application.CurrentDB
set rs = db.OpenRecordset(strtabname)
do until rs.EOF
strrecipients = strrecipients & rs.fields("EmailAddress").value
strrecipients = strrecipients & ";"
loop