>Hi
>
>Set wrkjet = DBEngine.CreateWorkspace("", "admin", "", dbUseJet)
>Set DatabaseObj = wrkjet.OpenDatabase(App.Path & "\Data\pos.mdb", True)
>
>Any idea?
>
>Thank you

What version of Access was this mdb created with?

For Access 9x and above, you can get by with the simpler OpenDatabase method of DAO object model:
Dim DatabaseObj as DAO.Database
Set DatabaseObj = OpenDatabase(App.Path & "\Data\pos.mdb")