Mi sembra che stai chiamando l'oggetto con un nome diverso da quello con cui l'hai creato:

codice:
Dim Mail  = From EMail In Mail_DB.tbElencoAziende 
...
oMail  = rstEmail![mail]
Inoltre, per leggere solo gli indirizzi non ha senso usare un DataAdapter,
secondo me è meglio un DataReader (a meno che non ci devi fare altre cose...)

Comunque mi pare parecchio confuso il tuo codice...