Base de données vérouillée

Bonjour,

Je suis confrontée depuis cette semaine à un problème sur lequel je viens demander votre aide.
J'ai en effet deux bases de données différents: base1 et base2.
la base1 a une table nommée Saisie et la base2 a une table nommée Lecture.
Les deux bases ne sont pas au même endroit.

Grâce à un bouton j'importe les données de la table Saisie de la Base1 vers la table Lecture de ma base2.
Le code a toujours marché et à ma grande surprise j'ai aujourd'hui une erreur d'exécution 3734 qui me dit ceci:
" la base de données a été placée par l'utilisateur<Admin> sur<nom du poste> dans un étant l'empêchant d'être ouverte ou verrouillée."

J'ai remarqué que quand je redémarre l'application, le code marche à nouveau.

Ci-dessous mon code:

Dim wksp As Workspace
 Dim db As Database
Set wksp = CreateWorkspace("", "admin", "")
Set db = wksp.OpenDatabase("\\dossier\Access\Base2.mdb")  ' chemin d'accès à la base2
db.Execute ("Delete * FROM [Lecture]")  ' supprime les données de la table Lecture se trouvant à la base 2
<gras>db.Execute ("INSERT INTO [Lecture] SELECT * FROM [MS Access;Database=" & CurrentProject.FullName & "].[Saisie]</gras><ital></ital> 'je remplie la table Lecture de la base 1 grâce à la table Saisie de la base1
db.close

MsgBox " les données ont été exportées"
End Sub

L'erreur se produit à la ligne de code en gras et italique. Je précise que j'ai mis CurrentProject.FullName car l'appli va être distribuée à d'autre utilisateurs et je souhaiterais qu'il s'adapte suivant le chemin de chacun.

Je viens solliciter vos lumières.
Merci d'avance