Visual Basic.NET - Actualizar mediante variable

Dim con As New SqlConnection

Dim ticket As String

Dim cmd As New SqlCommand

ticket = DataGridView1.CurrentRow.Cells(1).EditedFormattedValue.ToString

Try

    con.ConnectionString = "server=0.0.0.0.0\TICKETS;database=Ticket2017;user id = sa; password = pas"

    con.Open()

    cmd.Connection = con

    cmd.CommandText = "update tickets SET respsistemas = @RCon where numticket =" + ticket

    cmd.Parameters.AddWithValue("@RCon", Me.TextBox1.Text)

    cmd.ExecuteNonQuery()

Catch ex As Exception

    MessageBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")

Finally

End Try

con.Close()

cmd.CommandText = "update tickets SET respsistemas = @RCon where numticket =" + ticket + " "

cmd.CommandText = "update tickets SET respsistemas = @RCon, atendido = @Aten, FechaHoraRespsis = @fechahoraaten, HoraRespsis = @horaten, quienatendio = @atendio, fechaenviosms = @fechasms, horainiciosms = @horasms where numticket in ('" & ticket & "')"

cmd.Parameters.AddWithValue("@RCon", Me.TextBox1.Text)

cmd.Parameters.AddWithValue("@Aten", "SI")

cmd.Parameters.AddWithValue("@fechahoraaten", Date.Today.ToString("MM/dd/yyyy"))

cmd.Parameters.AddWithValue("@horaten", TimeOfDay.ToString("HH:mm:ss"))

cmd.Parameters.AddWithValue("@atendio", frmPrincipal.ToolStripStatusLabel4.Text)

cmd.Parameters.AddWithValue("@fechasms", Me.TextBox2.Text)

cmd.Parameters.AddWithValue("@horasms", Me.TextBox3.Text)

cmd.ExecuteNonQuery()

Timer1.Start()

dgv.Visible = False