1. Все это описано в лекциях. http://shops.leadersoft.ru/Product.aspx?ProductID=3803 

2. Запараленную базу открывают так

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\dbpassword.mdb", False, False, ";pwd=1")
strSQL = "select * from [Таблица1]"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
...