个人资产app:求VB打开带密码的Access数据库的原代码

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 07:37:27
在VB中的打开带密码的Access数据库的原代码是什么呀?请求指教。
不用控件,直接用代码

Private Sub Command3_Click()
Dim password As String
Dim Nameofmdb As String

Nameofmdb = App.Path & "\test.mdb"
'Nameofmdb为MDB文件名
password = UnLockMdb1.GetPass(Nameofmdb)
txtPassword.Text = password
End Sub

Private Sub Command4_Click()
UnLockMdb1.About
End Sub