Prova ad aggiungere prima della open di generica:
generica.CursorLocation = adUseClient

Ciao