Extracting data from Access Database password protected

[Guest]

I've manage to extract the data from a database into excel, however now the
database is password protected. How can incorporate the password into the
code I have now. I know the code should go somewhere in this area. Thanks
for any help

Set DB1 =
DBEngine.Workspaces(0).OpenDatabase("s:\Cio\Techplan\Adams\Itdmgmt\A_Proj_Mgmt_Rpt\Reporting\Access Databases\Dai_ITMB Access2000.mdb")
Set RS1 = DB1.OpenRecordset("tblFTSAtrakHrs", dbOpenTable)

 

[Guest]

Do a search in VBA help for "opendatabase". Look at Opendatabase Method
(DAO). the last parameter CONNECT can contain a password.