questo č l'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.

e corrisponde alla riga:
Connection1.Open Application("Connection1_ConnectionString")

mentre se al posto di quella riga scrivo:
Connection1.Open "databa"
funziona.
databa č il DSN