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