刚在网上查到的，不过没有用过：
访问ACCESS数据库
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassword;"

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dataname.mdb;Persist Security Info=false;Jet OLEDB:Database Password=1234"
cnn.Open str

用上面的句子就可以打开数据库了。

其中的dataname是你的数据库的名字
数据库的密码是1234。

数据库的用户名怎么输入啊？比如某个加密的数据库文件的用户名是Admin，密码是1234。

把Data Source=" & App.Path & "\dataname.mdb改成Data Source=" & App.Path & "\Admin.mdb就行了。
此数据库文件要跟你的VB程序在同一文件夹下。