Del tuo codice io ci ho capito poco, se me lo spieghi magari ti si può aiutare, ma mi sembra tutto un garbuglio pazzesco.

1) nella definizione della funzione hai:
Public Function Controlla_password_admin(login As String, Password As String, Optional Nome_database As String = "") As Boolean
cosa sarebbe quel "Nome_database" ??
E perchè poi nel codice non lo usi, mentre invece utilizzi PaginaPrincipale.nomedatabase ??

2) cosa serve tutto il codice con PaginaPrincipale.OFD1........ ??
Una idea me la sono fatta, ma se vuoi che la gente ti aiuti devi togliere dal codice tutto quello che non c'entra niente con il tuo errore, non possiamo leggere un sacco di codice quando il problema lo hai già individuato tu e sai bene in quale riga.
Prova a togliere dal tuo codice tutte le righe che non sono rilevanti e riprova, vedrai che riesci a capire meglio dove sta l'errore, magari semplicemente nel nome del database.

3) cos'è la funzione ApriDatabase(DirrCorr) ??

4) cosa serve la riga cn.Close() ??? Non mi sembra che cn sia definito nella funzione e quindi non si capisce cosa fa


Sergio