I wanted to update the database content but getting error .

rotected Sub grv_set_func_obj_RowUpdating(sender As Object, e As GridViewUpdateEventArgs)


        cmd.CommandText = "update MBO_Details set MBO_FUNC_OBJ=@func_obj,MBO_MEASURED_VAR=@measurd_var,MBO_DEADLINE=@tar_dt,MBO_WEIGHT_FACT=@wt_fact  where id=@id;" _
            & "select id,MBO_FUNC_OBJ,MBO_MEASURED_VAR,MBO_DEADLINE,MBO_WEIGHT_FACT from MBO_Details where MBO_EMP_CODE='40000001' "
        MsgBox(cmd.CommandText)
        cmd.Parameters.Add("@id", SqlDbType.BigInt).Value = ID
        cmd.Parameters.Add("@func_obj", SqlDbType.NVarChar).Value = Func_obj
        cmd.Parameters.Add("@measurd_var", SqlDbType.NVarChar).Value = measurd_var
        cmd.Parameters.Add("@tar_dt", SqlDbType.NVarChar).Value = tar_dt
        cmd.Parameters.Add("@wt_fact", SqlDbType.NVarChar).Value = wt_fact
        con.Open()
        grv_set_func_obj.EditIndex = -1
        grv_set_func_obj.DataSource = GetDataTDetails(cmd)
        grv_set_func_obj.DataBind()
        MsgBox(cmd.ExecuteNonQuery())
        con.Close()

    End Sub
    Private Function GetDataTDetails(ByVal cmd As SqlCommand) As DataTable
        Dim dt As New DataTable()
        Dim con As New SqlConnection(strConnString)
        Dim sda As New SqlDataAdapter()
        cmd.CommandType = CommandType.Text
        cmd.Connection = con
        con.Open()
        sda.SelectCommand = cmd
        sda.Fill(dt)
        Return dt
    End Function
End Class