excusez je me suis trompé de code
Dim valider As Boolean = False
EP.Clear()
If TBlogin.Text = "" Then
EP.SetError(TBlogin, "Veuillez saisir votre login !")
ElseIf TBlogin.TextLength < 8 Then
EP.SetError(TBlogin, "Votre login doit contenir 8 caractère minimun !")
Else
valider = True
End If
If TBmdp.Text = "" Then
EP.SetError(TBmdp, "Veuillez saisir votre password !")
valider = False
ElseIf TBlogin.TextLength < 8 Then
EP.SetError(TBmdp, "Votre password doit contenir 8 caractère !")
Else
valider = True
End If
If CBquest.Text = "" Then
EP.SetError(CBquest, "Veuillez sélectionner une question")
Else
valider = True
End If
If TBrep.Text = "" Then
EP.SetError(TBrep, "Veuillez saisir votre reponse !")
ElseIf TBlogin.TextLength < 8 Then
EP.SetError(TBrep, "Votre reponse doit contenir 8 caractère !")
Else
valider = True
End If
If valider Then
Try
AjouterUser(TBlogin.Text, TBmdp.Text, CBquest.Text, TBrep.Text)
MessageBox.Show("Inscripion validé", ".:: CONFIRMATION", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MessageBox.Show("Une autre inscription ? ", ".:: DEMANDE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
vider()
Else
Me.Visible = False
Connection.Show()
Me.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, ".:: ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If