如何在vb中使用ado来为一个access2000的数据库增加/删除数据库密码？？

Question

如何在vb中使用ado来为一个access2000的数据库增加/删除数据库密码？？
要求原数据库没有密码，添加一个。或者原数据库有密码，将其删除。

Answer 1

'修复数据库时为数据库加密码
Function CreateDBPwd(DataName As String) As Boolean
        Dim AdoConn As New ADODB.Connection
        Dim AdoRs As ADODB.Recordset
        Dim PwdStr As String
        'On Error GoTo Err1
        ' 创建 SQL 串以初始化一个数据库密码。
        PwdStr = "ALTER DATABASE PASSWORD pwdstr NULL;"
        ' 打开不具有安全设置的数据库。
        With AdoConn
            .Mode = adModeShareExclusive
            .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataName
         ' 执行 SQL 语句对数据库进行安全设置。
            .Execute (PwdStr)
        End With
        AdoConn.Close
        Set AdoConn = Nothing
        CreateDBPwd = True
        Exit Function
Err1:
        CreateDBPwd = False
        Set AdoConn = Nothing
End Function