抑郁坠楼身亡:求VB打开带密码的Access数据库的原代码

来源:百度文库 编辑:中科新闻网 时间:2024/05/11 18:16:35
在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