Ho provrato il tuo consiglio...

L'errore sembra essere nella linea:
Data1.Recordset.Seek "=", EANDaCercare

Perchè il messaggio di errore esce subito prima del "MsgBox ("-" + EANDaCercare + "-")"