problem please check .!!

[icetalks]

have a look at this code , its for logging the user in after checking his UserName and Password.

dim check as boolean = false
...
...

If txtUserName.Text.Length = 0 And txtPass.Text.Length = 0 Then
MessageBox.Show("please Enter Your Name and Password")
txtUserName.Text = ""
txtPass.Text = ""
Exit Sub
End If

Dim conn As New SqlConnection
Dim cmd As New SqlCommand
Dim rd As SqlDataReader
conn.ConnectionString = "Data Source=PC100-042295F4E;" & "Trusted_connection=yes;" & "initial Catalog=Client;"

conn.Open()
cmd.Connection = conn

cmd.CommandText = (" SELECT Emp_user, Emp_pass FROM Emp_Info") 'SELECT User_UserName, User_Pass FROM Users_Tb where User_UserName=" + txtUserName.Text + " AND User_Pass=" + txtPass.Text)
rd = cmd.ExecuteReader

While rd.Read ''''''''''''' my problem starts here ******

If rd.Item("Emp_user") = LCase(txtUserName.Text) And rd.Item("Emp_pass") = LCase(txtPass.Text) Then
Dim main As New MainFrm
main.ShowDialog()
check = True
Me.Close()
rd.Close()
Exit While
Else
check = False
End If
End While
If check = False Then
MessageBox.Show("Please Recheck User Name and Password")
txtUserName.Text = ""
txtPass.Text = ""
End If
conn.Close()

my problem in the while section ... it jumps out of it to show me the MessageBox ("please Recheck ....... ") , what is the problem. ?!! .. please advise . Thank you very much.

[Sandeep akhare]

Are you getting data in the DataReader from the database First Debug to see it and Always use trim proprty in the password textbox value it may contain spaces