Ok, vamos por partes....
Primeiro tu precisas de fazer um query para verificar a password actual (inserida na base de dados), do utilizador.
Exemplo para bases de dados (SQL CE):
Imports System.Data.SqlServerCe
Dim password as string
Sub verifica_password()
Try
Dim db As New SqlCeConnection("conecção")
db.Open()
Dim myCommand As New SqlCeCommand("Select Password from Utilizadores Where ID=" & iduser", db)
Dim dr As SqlCeDataReader
dr = myCommand.ExecuteReader
While dr.Read()
password = dr.item(0)
End While
if not Textbox_PasswordAntiga.text = password then
msgbox("A Password antiga não está correcta!")
exit sub
else
inserir_nova_pass
end if
Catch ex As Exception
MsgBox("Ocorreu o seguinte erro: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Inserir_nova_pass()
try
if not TextBox_PasswordConfirma.text = Textbox_PasswordNova.text then
msgbox("A password não foi confirmada correctamente!")
else
Dim db As New SqlCeConnection("conecção")
db.Open()
Dim varsql As String = "UPDATE Utilizadores SET Password=@Password Where ID=" & idUser
Dim cmd As New SqlCeCommand(varsql, db)
cmd.Parameters.Add(New SqlCeParameter("@Password", SqlDbType.NText)).Value = RPass_txt.Text
cmd.ExecuteNonQuery()
end if
Catch ex As Exception
MsgBox("Ocorreu o seguinte erro: " & ex.Message, MsgBoxStyle.Critical)
End Try
end sub
No botão colocas:
verifica_password()
Inserir_nova_pass()
