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\Techpl an\Adams\Itdmgmt\A_Proj_Mgmt_Rpt\Reporting\Access Databases\Dai_ITMB Access2000.mdb")
Set RS1 = DB1.OpenRecordset("tblFTSAtrakHrs", dbOpenTable)