aide urgent plzzz!!!

variant 1/2010 partie web(autentification)
Imports System.Data.SqlClient
Imports System.Data
Partial Class Authentification
Inherits System.Web.UI.Page
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim dr As SqlDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.ConnectionString = "Data Source=.;Initial Catalog=Variante N°1;Integrated Security=True"
con.Open()
com.Connection = con
Me.TextBox1.Focus()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
com.CommandText = "select * from Joueur"
com.CommandType = CommandType.Text
dr = com.ExecuteReader
Dim bol As New Boolean
bol = True
While dr.Read
If dr(4).Equals(CInt(Me.TextBox2.Text)) And dr(1).Equals(Me.TextBox1.Text) Then
bol = False
End If
End While
If bol = False Then
Me.Session("a") = CInt(Me.TextBox2.Text)
Response.Redirect("Information joueur.aspx")
Else
Me.Label1.Text = "Compte incorrect ! "
End If
End Sub
End Class