Purtroppo non mastico né l'ambiente MSAccess né DAO, quindi non credo di essere la persona più indicata. Comunque quando sei in ambiente VBA hai a disposizione la guida a Microsoft Visual Basic for Applications, di sicuro trovi tutte le informazioni.

Premetto che, dato che tu usi Office 2010, non ho la minima idea se gli oggetti utilizzati da MSAccess siano gli stessi delle versioni precedenti (mi auguro di sì!).


Per quel poco che posso dirti:

1) Set rstEmail = New DAO.??????????????????
usa
Set rstEmail = New DAO.Recordset

2)in DAO il recordset si apre con il metodo
OpenRecordset indicando il tipo: dbOpenDynaset (e NON adOpenForwardOnly come stai facendo tu)

3) Dopo aver aperto rstEmail esegui queste due istruzioni
rstEmail.MoveLast
rstEmail.MoveFirst
così otterrai il numero dei record in
rstEmail.RecordCount

A quel punto esegui il tuo codice.

Eventualmente, se hai problemi, torna qui, mostra il codice [stavolta formattato come CODICE usando il pulsantino CODE ] come indicato nel Regolamento, e vediamo il da farsi