Access Workgroup file

How can I change the workgroup file (mdw) (run time) in vb6?

ex.
dim AppAccess as new Access.Application

AppAccess.opencurrentdatabase "C:\Employee.mdb"
AppAccess.visible = true


The employee file need to joint a workgroup file.
I would like to specify the path of my mdw file and user id and password through my custom dialog box.

Any idea??? Thanks!

Before doing opencurrentdatabase, try:

AppAccess.DBEngine.SystemDB="your.mdw"
AppAccess.DBEngine.DefaultUser="UserID"
AppAccess.DBEngine.DefaultPassword="PasswordforaboveUser"