Code For Connection String Using Sql Server 2000 As Backend With Asp.net 1.1 Along With Vb.net

Hi all,

Please help me for the code of connectivity

it was working fine,but,when i hav written code for validation for id n password,its showing error as
Violation of PRIMARY KEY constraint 'PK_Login'. Cannot insert duplicate key in object 'login_detail'. The statement has been terminated.

 Here is my code given below.

 Please help me

Imports System

Imports System.IO

Imports System.Xml

Imports System.Text

Imports System.Security.Cryptography

Imports System.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Imports System.Data

Imports System.Data.SqlClientPublic Class WebForm1

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()

End SubProtected WithEvents txtUser As System.Web.UI.WebControls.TextBox

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

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

'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 RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

 Dim objConn As SqlClient.SqlConnection

Dim ds As New DataSetDim m_strConnection As String = "server=172.16.152.17;Database=Trial;UID=abhi_Asset4;PWD=L!nux001;Connect Timeout=100"objConn = New SqlClient.SqlConnection

objConn.ConnectionString = m_strConnection

objConn.Open()

Dim strSQL As String

strSQL = "insert into login_detail(UserID,Password) values('" + txtUser.Text + "','" + txtPwd.Text + "')"Dim objCommand As SqlClient.SqlCommandobjCommand = New SqlClient.SqlCommand(strSQL, objConn)

objCommand.CommandText = strSQL

objCommand.ExecuteNonQuery()

objConn.Close()

 

 

 

 

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

If (txtUser.Text.Trim() = "") Then

lblError.Text = "UserID should not be blank"

ElseIf (Convert.ToInt32(txtUser.Text.Length) < 5) Then

lblError.Text = "UserID length must be more than 5"

ElseIf (Convert.ToInt32(txtUser.Text.Length) > 20) Then

lblError.Text = "UserID length must not be greater than 20"

ElseIf (txtPwd.Text.Trim() = "") Then

lblError.Text = "Password should not be blank"

ElseIf (Convert.ToInt32(txtPwd.Text.Length) < 5) Then

lblError.Text = "Password length must be more than 5"

ElseIf (Convert.ToInt32(txtPwd.Text.Length) > 20) Then

lblError.Text = "Password length must not be greater than 20"

Else

Server.Transfer("Success.aspx")

End IfEnd Sub

End Class