try somethin like this, there maybe a few syntax errors as i've wrote it on th fly...
dim rst as recordset
dim strValue as string
strValue=""
set rst=currentdb.openrecordset("tablename")
rst.movefirst
do until rst.eof
strValue = strvaue & rst![Fieldname] & ";"
rst.movenext
loop
rst.close
set rst=nothing
msgbox strvalue