Probleme verification d'un textbox !!

la premiere fois qui rentre dans le texbox et que le user se trompe, le code suivante fonctionne il passe au second met la valeur correcte puis retourne au precedent et là le user se trompe mais le code ne fonctionne plus. Comment faire pour que ce textbox reste bloquer tant que ce n'est pas bon qu'importe le nombre de fois.


Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus

Dim dbCommand As DbCommand = myDatabase.GetStoredProcCommand("paystest")
myDatabase.AddInParameter(dbCommand, "ISO_1", DbType.String, TextBox4.Text)
myDatabase.LoadDataSet(dbCommand, mydata, "pays2")
If mydata.Tables("pays2").Rows.Count = 0 Then
    Label4.BackColor = Color.Red
    Label5().BackColor = Color.Transparent
    TextBox4.Select()
Else
    Label4.BackColor = Color.Transparent
End If

End Sub
--------------------------------------------------------------------------
    Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
        Dim dbCommand As DbCommand = myDatabase.GetStoredProcCommand("copostest")
        myDatabase.AddInParameter(dbCommand, "copos_1", DbType.String, TextBox5.Text)
        myDatabase.AddInParameter(dbCommand, "cpays_2", DbType.String, TextBox4.Text)
        myDatabase.LoadDataSet(dbCommand, mydata, "copos1")
        If mydata.Tables("copos1").Rows.Count = 0 Then
            Label5().BackColor = Color.Red
            Label10.BackColor = Color.Transparent
            TextBox5.Select()
        Else
            Label5().BackColor = Color.Transparent
        End If
    End Sub
End Class
--------------------------------------------------------------------------------------


Merci d'avance pour votre aide

Pourquoi ne pas faire ces tests dans un bouton qui valide l'authentification ?

Private Sub ButtonValide_Click(......)

   'Si user se trompe tu passes les textebox qui sont en erreurs en rouge
   'Sinon les remettres en transparent (si une erreur c'est déjà produite) et continuer

End Sub