THANKS MAJITH SIR FOR HELPING ME!! PLZZZ CAN U HELP ME MORE ?

Imports System.Data

Imports System.Data.OleDb



Partial Class [Default]

    Inherits System.Web.UI.Page

    Const cons1 As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\sam2.mdf;Integrated Security=True;User Instance=True" 





#Region " Web Form Designer Generated Code "



    'This call is required by the Web Form Designer.

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



    End Sub





    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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'On Error GoTo so



        Try

           

            'Dim cn As New SqlConnection(cons1)

            Dim s, s1 As String

            Application("sign") = TextBox1.Text

            s1 = TextBox1.Text



            's = "select * from " & s1 & " "

            s = "select * from usr where uid = '" & TextBox1.Text & "' and pass = '" & TextBox2.Text & "'"

            cn.Open()



            Dim dr As OleDbDataReader



            Dim cmd As New OleDbCommand(s, cn)

            'cmd = New OleDbCommand(s, cn)

            dr = cmd.ExecuteReader



            If dr.Read = True Then



                '  Application("sign") = dr("cid")



                Response.Redirect("Frameset1.htm")



            Else

                Server.Transfer("Invalid.aspx")

            End If

            cn.Close()

        Catch ex As Exception

            Label1.Text = " Invalid Details"

        End Try



    End Sub

End Class