RE:Abrir base con password
Para abrirlo desde vb usando el crystal viewer yo utilizo lo siguiente:(para la version 9.0 de crystal report).
Set CRReport = CRApp.OpenReport(App.Path & "\tuinforme.rpt", 1)
CRReport.Database.Tables.Item(1).Location = App.Path & "\tubd.mdb"
CRReport.Database.Tables(1).SetSessionInfo "Admin", Chr(10) & "tuclave"
Espero que te sirva, un saludo.