Try This ..
Dim DB As Database
Set DB = OpenDatabase("\\Server1\GST\Payroll\PayrollDB.mdb", False, False, ";PWD=IIT")
Here "\\Server1\GST\Payroll\PayrollDB.mdb" is the DB location..
and under project referance u should select "Microsoft DAO 2.5/3.0 compatible Library"
Cheers
Bass