Authentification Active Directory / VB

salut voila le code pour verifier que le code entre par l'utisateur est celui qui est dans la basse de donnée

Public Class utilisateur
Dim trouve As Boolean
'procédure qui verifie l'existance du champs
Sub cherchermotsdepasseetutilisateur()
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Utilisateur where Login = '" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'"
dr1 = cmd.ExecuteReader
If dr1.Read Then
trouve = True

Else
trouve = False
End If
con.Close()
End Sub

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
cherchermotsdepasseetutilisateur()
If trouve = False Then
Label3.Text = "Erreur Veuillez verifier votre Login et votre Mot de passe ou le ce utilisateur n'existe pas"
Else
Me.Hide()
Form1.Show()
End If