>Hi
>
>Set wrkjet = DBEngine.CreateWorkspace("", "admin", "", dbUseJet)
>Set DatabaseObj = wrkjet.OpenDatabase(App.Path & "\Data\pos.mdb", True)
You open your database exclusively with DAO!
Change this line
Set DatabaseObj = wrkjet.OpenDatabase(App.Path & "\Data\pos.mdb", True)
To
Set DatabaseObj = wrkjet.OpenDatabase(App.Path & "\Data\pos.mdb", False)
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com