Comments on: How do you change user password for a separate Access database than you are working in? http://itknowledgeexchange.techtarget.com/itanswers/how-do-you-change-user-password-for-a-separate-ms-access-database-than-you-are-working-in/ Wed, 22 May 2013 05:05:11 +0000 hourly 1 By: mcnitro http://itknowledgeexchange.techtarget.com/itanswers/how-do-you-change-user-password-for-a-separate-ms-access-database-than-you-are-working-in/#comment-87221 mcnitro Fri, 28 Jan 2011 16:04:54 +0000 #comment-87221 Argh, I can never post things right…hopefully this works now.

Public Sub ChangePassword(strUser as String, strOldPassword as String, strNewPassword as String)

Dim wrk as DAO.Workspace
Dim usr as DAO.User

Set wrk = DBEngine(0)
Set usr = wrk.Users(strUser)

'Change the password
usr.NewPassword strOldPassword, strNewPassword

Set usr = Nothing
Set wrk = Nothing

End Sub
]]>