Ho provato iltuo codice ma nella dichiarazione dell'oggetto RecRs mi da errore:

"L'oggetto non può essere l'origine di eventi di automazione"

Coma hai fatto a farlo funzionare???