Private Sub Valider_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
' Vérifier si les champs sont vides
If Nz(Me.OldPassword, "") = "" Or Nz(Me.NewPassword, "") = "" Or Nz(Me.ConfirmPassword, "") = "" Then
MsgBox "Veuillez remplir tous...