有个小问题请教大家！

Set MSAccess = New Access.Application
Dim ss As String    
     MSAccess.OpenCurrentDatabase (App.Path + "\sy.mdb")     MSAccess.DoCmd.OpenReport "商品条码", acViewNormal     MSAccess.CloseCurrentDatabase     Set MSAccess = Nothing
这段代码是打印ACCESS数据库的报表！，但是我的数据库是有密码的！请问怎样把密码加进去。