INSERT INTo Command

[dr223]

Hi,

I am working with asp.net and VB.Net;

What am I doing wrong please?

 Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click


        Dim strConn As String
        strConn = ConfigurationManager.ConnectionStrings("CCMSConnectionString").ConnectionString

        Dim conn As New SqlConnection(strConn)

        conn.Open()

        Dim strSql As String

        strSql = "INSERT INTO dbo.TblChangeControlDet (RequestBy, CreatedBy, ChangeType, TechnicalPerson, Req, BusImp,ChangeRaisedDate, PeerRvw) " & _
                                            "VALUES (@RequestBy, @CreatedBy, @ChangeType, @TechnicalPerson, @Req, @BusImp,@ChangeRaisedDate, @PeerRvw )"

        Dim cmd As New SqlCommand(strSql, conn)

        cmd.Parameters.AddWithValue("@RequestBy", Me.cmbchngreq.Text)
        cmd.Parameters.AddWithValue("@CreatedBy", Me.cmbchngcrt.Text)
        cmd.Parameters.AddWithValue("@ChangeType", Me.cmbchngtyp.Text)
        cmd.Parameters.AddWithValue("@TechnicalPerson", Me.cmbTechname.Text)
        cmd.Parameters.AddWithValue("@Req", Me.txtreq.Text)
        cmd.Parameters.AddWithValue("@BusImp", Me.txtbusimp.Text)
        cmd.Parameters.AddWithValue("@ChangeRaisedDate", Me.txtdate.Text)
        cmd.Parameters.AddWithValue("@PeerRvw", Me.cmbpeername.Text)

        conn.Close()

    End Sub

Database is not updated even if data in inserted

Many many thanks