VB DAO ACCESS MDB Password protection

I have written a program in Visual Basic.
The program uses DAO 3.51
Back end is a MS-Access mdb file

Now I want to add password protection.
I have set up password for the mdb.

I am using the
Set ws = DBEngine.CreateWorkspace(“Temp”, “admin”, “”)

Set db = ws.OpenDatabase(“c:\mydata.mdb”)

the using a recordset object.

Now where and how does the password fit in?

If you could give me working code, I will be very happy.

Thank you