How to Change the Database Password Programmatically?

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

I am vb programmer

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..

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

is there more understandable code for changing password using vb 6.0??:) thanks

hi i declared my obeject as folloes but it complains.here 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

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

HOW CAN ME WRITE IT IN VISUAL BASIC 2008

AND HOW CAN ME CREATE NEW PASSWORD FOR ACCESS 2003

how did you initialized the CN variable? please send me the answer here [email protected]

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.

what is the databse password .

my id is [email protected]