Inserting In MSSQL Help NEEDED

Hi all,





I have trying to insert into my database in MSSQL.


However, everytime I run it it connects, but does not update to the database.


Below is the code I am using.


Please help me find out why it isn't inserting the new record into the database





Imports System.Data


Imports System.Data.SqlClient





Public Class AdminPage


Inherits System.Web.UI.Page


Dim StrConn = "Server='localhost';UID='sa'; database='TrackError'"








#Region " Web Form Designer Generated Code "





'This call is required by the Web Form Designer.


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





End Sub


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


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


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


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


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


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


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


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


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


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


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


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





'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 TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMessage.TextChanged





End Sub





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


'If (txtScreenName.Text = "" Or txtTime.Text = "" Or txtMessage.Text = "") Then


'Exit Sub





'End If





Dim Insert As String


Dim MSqlConn As New SqlConnection(StrConn)








'Dim added As Integer


Try


MSqlConn.Open()





Insert = "SELECT INTO Defect ("


Insert &= "DefectID, ScreenName, Message, Times, Fixed)"


Insert &= "VALUES ('"


Insert &= txtid.Text & "', '"


Insert &= txtScreenName.Text & "', '"


Insert &= txtMessage.Text & "', '"


Insert &= txtTime.Text & "', '"


Insert &= fixed.Text & "')"





Dim MSqlCmd As New SqlCommand(Insert, MSqlConn)


MSqlCmd.ExecuteNonQuery()


'txtMessage.Text = MSqlConn.ServerVersion





Catch ex As Exception


txtMessage.Text = ex.Message





Finally


' If Not (MSqlConn Is Nothing) Then


MSqlConn.Close()


' txtMessage.Text = "Not connected"


' End If


End Try








Response.Redirect("MainPage.aspx")


End Sub





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


Response.Redirect("MainPage.aspx")


End Sub


End Class