Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
If ValidPassword() = True And ConfirmPWD(txtNewPWD.Text, txtConfirmPWD.Text) = True Then
UpdateNew_Password
Else
MsgBox "Password Mismatch", vbExclamation
End If
End Sub

Private Sub Form_Load()
txtUserName.Text = CURR_USER.USER_NAME
End Sub

Function ValidPassword() As Boolean
Dim recPWD As New ADODB.Recordset
recPWD.Open "SELECT username,password,user_category FROM Users WHERE username='" & txtUserName.Text & "' AND password='" & txtCurrentPWD.Text & "'", ACECON, adOpenDynamic, adLockOptimistic
If recPWD.BOF = True Or recPWD.EOF = True Then
ValidPassword = False
Else
If StrComp(recPWD.Fields("password").Value, txtCurrentPWD.Text, vbBinaryCompare) = 0 Then
ValidPassword = True
Else
ValidPassword = False
End If
End If
recPWD.Close
Set recPWD = Nothing
End Function

Function ConfirmPWD(strPWD1 As String, strPWD2 As String) As Boolean
If StrComp(strPWD1, strPWD2, vbBinaryCompare) = 0 Then
ConfirmPWD = True
Else
ConfirmPWD = False
End If
End Function

Sub UpdateNew_Password()
Dim strUpd As String
strUpd = "UPDATE Users SET password='" & txtConfirmPWD.Text & "' WHERE Username='" & txtUserName.Text & "';"
If MsgBox("Are you sure to change the password ?", vbQuestion + vbYesNo, "Change password") = vbYes Then
ACECON.Execute strUpd
End If
End Sub
-----------------------------------------------------------
Code :Jaweed (More info pls Contact)