controlla se nei tipi di variabili c'è più di un Database, se è così selezione l'altro oppure arrivaci tramite percorso, tipo:

Dim DB As DAO.Database

Guarda anche per workspace.

Un'altra cosa l'errore a che linea lo genera?

Alla prosssima