Skip to main content

How to Change the Database Password Programmatically?

This tutorial will teach you on how to change the database password of an Access database programmatically using visual basic 6.0.

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";Persist Security Info=False;Mode=12;Jet OLEDB:Database Password="current password here" sqlExecStr = "ALTER Database Password " & txtNewPass & " " & txtOldPass & ";" CN.Execute sqlExecStr

Where CN is your database connection variable.

If you use the database before changing the password be sure to close it by adding code like:


Open the database exclusively by adding:


This is very important since you cannot change the password if you did not open it exclusively.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.


1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Submitted bybarbyanon Sat, 01/24/2009 - 01:29

how do i get the password to the downloaded VOTING SYSTEM software?


Submitted byadminon Sat, 01/24/2009 - 11:39

Search for term "password" in the code editor window. Be sure to select current project.

Submitted byAnonymous (not verified)on Sat, 04/25/2009 - 11:52

I am a regular beneficiary of your tips and helps, keep up the good job. I must tell you, am inpressed by your selfless devotion to helping developers.
Submitted byAnonymous (not verified)on Fri, 07/31/2009 - 14:01

Submitted byAnonymous (not verified)on Tue, 08/18/2009 - 17:45

Option Explicit Public ADOCON As ADODB.Connection Public ADORECORD As ADODB.Recordset Public Sub ConnectToDB(ByVal dbPath As String, Optional ByVal Password As String = "") Dim conStr As String conStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Jet OLEDB:Database Password=" & Password & ";" ADOCON.CursorLocation = adUseClient ADOCON.Mode = adModeReadWrite ADOCON.Open conStr End Sub Public Function ChangeDatabasePassword(dbPath As String, oldPassword As String, newPassword As String) As Boolean Dim sqlStr As String, conStr As String conStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Jet OLEDB:Database Password=" & oldPassword & ";" If ADOCON.State 0 Then ADOCON.Close sqlStr = "ALTER Database Password " & newPassword & " " & oldPassword & ";" ADOCON.Mode = adModeShareExclusive ADOCON.Open conStr ADOCON.Execute sqlStr ADOCON.Close Call mADO.ConnectToDB(App.Path & "\dbpw.mdb", newPassword) End Function Thats How i got it to work :D
Submitted byAnonymous (not verified)on Thu, 09/03/2009 - 18:22

hi i declared my obeject as folloes but it is the code Dim objUser As User If txtUsername.Text "" Then If txtNewPassword.Text = txtConfirmNew.Text Then objUser = GetObject("LDAP://cn=" + txtUsername.Text _ + ",cn=Users,dc=mycorp,dc=com") objUser.SetPassword(txtNewPassword.Text) objUser.pwdLastSet = 0 objUser.lockoutTime = 0 objUser.SetInfo() 'Reset everything txtUsername.Text = "" txtNewPassword.Text = "" txtConfirmNew.Text = "" MsgBox("Password changed!") Else MsgBox("Passwords are not the same, please try again!") End If Else MsgBox("A username must be specified!") End If
Submitted byAnonymous (not verified)on Mon, 03/22/2010 - 15:54

My code is as follows, ------------------ Set con = New ADODB.Connection Dim strConstring As String, strChgPw Dim newPassword As String Dim oldpassword As String newPassword = "Sid" oldpassword = "Null" strConstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MGallary;Data Source=SIDDHESH-DFF718" con.Open strConstring strChgPw = "ALTER Database Password " & newPassword & " " & oldpassword & ";" con.Execute strChgPw --------------------------------- But while running it promts error for line con.Execute strChgPw as: Incorrect syntax error near keyword 'Null' I have not set any password for my database Please help

also close the connection after
con.Execute strChgPw
write here con.close

Submitted byAnonymous (not verified)on Fri, 04/30/2010 - 11:22

Hi Everyone, Can I know how to use combo box when I click the first combo box , the second combox also change to display data related to first combo box? I'm just start to learn vb6 and i'm new in this language. Can anyone help me please.. Thank you very much..
Submitted byAnonymous (not verified)on Tue, 10/19/2010 - 13:13

I am vb programmer

Submitted byAnonymous (not verified)on Mon, 03/18/2013 - 16:39

hi i tried the code mentioned at topmost however i get the error "method execute of object objConnection failed however i confirm the file is open with mode=12 what could be the reason

Add new comment

This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.