高手急救：VB如何访问加了密码的ACCESS97数据库?

Question

加分吗？
给你一段代码(DAO)
Public Function OpenPasswordProtectedDatabase(DBPath As String, _
Password As String) As Object
On Error Resume Next
Dim db As DAO.Database
Set db = DAO.OpenDatabase(DBPath, False, False, _
    ";pwd=" & Password)If Err.Number = 0 Then
    Set OpenPasswordProtectedDatabase = db
Else
    Set OpenPasswordProtectedDatabase = Nothing
End IfEnd Function

Answer 1

Public Cn As New ADODB.Connection
Public r As New ADODB.RecordsetSub Main()
     Cn.Open "DBQd:\ck.mdb;DefaultDir=;DRIVER={Microsoft Access Driver   (*.mdb)};Uid=Admin;Pwd=123;"
End Sub调用  r.open sql,cn

Answer 2

如果用ADO 请用ODBC数据源。。

Answer 3

谢谢三位，
to ityaa:   ";pwd=" & Password中的"&"是何意思？必要吗？
to 小草：您的意思是不是说：如果用ADO控件，就先建一个DSN，在DSN数据源中做好密码设置，
然后再在ADO控件的connectionstring属性中指定该DSN名，即可搞定？
分我一定会给，但要三天后我才能试验各位的方法，再酌情给分！！！

Answer 4

ADO代码：
dim cn as adodb.connection
dim sc as stringsc="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ck.mdb;Jet OLEDB:database password=123"cn.open sc

Answer 5

在 dim sc as string下面加一句：set cn = new adodb.connection

Answer 6

以上是访问 Access2000数据库的方式
如果是Access97 则把 Provider改为 microsoft.jet.oledb.3.51

Answer 7

有劳哪位增加ADO控件（不是ADO代码)引用该数据库的例子。
多谢!!!

Answer 8

网友ityaa与glite的方法我已试过确实有效。我按网友linag的办法试验如下：
但运行时出现错误：“未发现数据源名称并且未指定默认驱动程序”
请liang与其他高手指点这是为何？提醒：我将于近日内结帐!

Answer 9

改为这样,一定行
ADO代码：
dim cn as adodb.connectiondim sc as string
sc="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=d:\ck.mdb;Persist Security Info=false;Jet OLEDB:Database Password=123"cn.open sc