Cambiar contraseña de base de datos ACCESS en Dao por codigo visual basic

frank
09 de Agosto del 2004
necesito crear una opcion, desde un programa que hice en visual basic, para cambiar la contraseña de la base de datos cuando el administrador lo desee, la base de datos es ACCESS con codigo DAO. Necesito la instrucción que me permita cambiar la contraseña de la base de datos.

vberiso
09 de Agosto del 2004
yo he creado esta funcion para cambiar el password , paso la ruta y nombre de la base, antiguo y nuevo password. y me regresa verdadero si logro hacer el cambio.

Function ChangePassWord(Base As String, Optional Password As String, Optional NewPassWord As String) As Boolean
Dim ChPass As DataBase
On Error Resume Next
Set ChPass = OpenDatabase(Base, True, False, ";pwd=" & Password & "")
If Err Then
MsgBox "Error " & Err.Number & vbCrLf & Err.Description, vbInformation
ChangePassWord = False
Exit Function
End If
ChPass.NewPassWord Password, NewPassWord
ChPass.Close
ChangePassWord = True
End Function