Append data to password protected database

[McWhorter]

I have a command box on a form that when clicked, does several tasks, one of which runs an append query to copy records to another database. It WORKS great.

Well, now we have to put a database password on the other database so the append query wont work.

Anyone have some code that I can use to enter the password into the other DB so the append query will run. I dont care if the password can be looked up in the vba.

Thanks,

 

[McWhorter]

I got it to work finally after alot of searching around on this website. Here was the code if anyone is interested.

Dim wrk As Workspace
Dim dbProtected As Database
Dim objAccess As Access.Application
Set wrk = DBEngine.Workspaces(0)
Set dbProtected = wrk.OpenDatabase
("c:\database.mdb", False, False, ";PWD=password&quot

DoCmd.OpenQuery ("Append_Query&quot, acViewNormal, acEdit