Come On SQLdatareader....read....read....read...ok Help.

OK, I'm using VS2003 and I'm having trouble. The page works perfectly when I created it with WebMatrix but I want to learn more about creating code behind pages and this page doesn't work. I think it has some things to do with Query builder but I can't seem to get change outside "please register". I have the table populated and it is not coming back with "login successful" or "password wrong" when I've entered correct information. Enclosed is what I've done in VS2003. Can you see where my error is? Any help would be greatly appreciated.


Thanks again.





Imports System.data.sqlclient


Imports System.Data


Public Class login2


Inherits System.Web.UI.Page





#Region " Web Form Designer Generated Code "





'This call is required by the Web Form Designer.


<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()


Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection


Me.SqlCommand1 = New System.Data.SqlClient.SqlCommand


'


'SqlConnection1


'


Me.SqlConnection1.ConnectionString = "server=LAWORKSTATION;user id=sa;database=test;password=t3st"


'


'SqlCommand1


'


Me.SqlCommand1.CommandText = "SELECT pass FROM Customer WHERE (email = 'txtusername.text')"


Me.SqlCommand1.Connection = Me.SqlConnection1





End Sub


Protected WithEvents lblUsername As System.Web.UI.WebControls.Label


Protected WithEvents lblPassword As System.Web.UI.WebControls.Label


Protected WithEvents txtUsername As System.Web.UI.WebControls.TextBox


Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox


Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button


Protected WithEvents lblMessage As System.Web.UI.WebControls.Label


Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection


Protected WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand





'NOTE: The following placeholder declaration is required by the Web Form Designer.


'Do not delete or move it.


Private designerPlaceholderDeclaration As System.Object





Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init


'CODEGEN: This method call is required by the Web Form Designer


'Do not modify it using the code editor.


InitializeComponent()


End Sub





#End Region





Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


'Put user code to initialize the page here


End Sub





Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click


SqlConnection1.Open()


Dim dr As SqlDataReader = SqlCommand1.ExecuteReader


If dr.Read() Then


If dr("password").ToString = txtPassword.Text Then


lblMessage.Text = "login successful"


Else


lblMessage.Text = "Wrong password"


End If


Else


lblMessage.Text = "Please register"


End If


dr.Close()


SqlConnection1.Close()


End Sub


End Class