Buen dia.
Realize lo siguente y me funciono correctamente:
Private Sub btnTomar_Click(sender As Object, e As EventArgs) Handles btnTomar.Click
Try
txtIDTemporal.Text = dgvTecnicos.SelectedRows(0).Cells(0).Value.ToString
txtNuevoStatus.Text = "Fuera de Laboratorio"
Dim con As String
con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
Dim cn As New SqlConnection
cn.ConnectionString = con
Dim query As New SqlCommand("update InventarioLab set Status = '" & txtNuevoStatus.Text & "' where ID = " & txtIDTemporal.Text & "", cn)
cn.Open()
query.ExecuteNonQuery()
MsgBox("Se Actualizaron los datos")
Dim dts As New datos
Dim funciones As New funcion
dts.gusuario = My.Forms.IniciodeSecion.UsernameTextBox.Text
dts.gcontraseña = My.Forms.IniciodeSecion.PasswordTextBox.Text
dts.gproyecto = Proyecto()
If funciones.validar(dts) = True And Proyecto() = 1 Then 'El 1 es de Cambium
obj.MostrarDatosCambium(dgvTecnicos)
Else
If funciones.validar(dts) = True And Proyecto() = 2 Then 'El 2 es de Enphase
obj.MostrarDatosEnphase(dgvTecnicos)
Else
If funciones.validar(dts) = True And Proyecto() = 3 Then 'El 3 es de Estructurales
obj.MostrarDatosEstructurales(dgvTecnicos)
Else
If funciones.validar(dts) = True And Proyecto() = 4 Then ' El 4 es de ICT
obj.MostrarDatosICT(dgvTecnicos)
End If
End If
End If
End If
Catch ex As Exception
MsgBox("Error al Actualizar Datos : " + ex.ToString)
End Try
End Sub