Imports System.Data.SqlClient

Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub ButtonLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click

        Dim DatabaseW7ConnectionString As New               SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseW7ConnectionString").ConnectionString)
        DatabaseW7ConnectionString.Open()
        Dim cmdStr As String = "Select count (*) from Pat where UserName='" + TextBoxUserName.Text & "'"
        Dim Checkuser As New SqlCommand(cmdStr, DatabaseW7ConnectionString)
        Dim objDataAdapter As New SqlDataAdapter(Checkuser)
       Dim dsResult As New DataSet()

      objDataAdapter.Fill(dsResult)

     if dsResult.tables(0).rows.count>0 then

         if dsResult.tables(0).rows(0).item("password")=TextBoxUserName.Text then

                    response.redirect("~/welcome.aspx")

        else

                    response.write("Invalid User")

        end if

    end sub

end class